#!/usr/bin/perl
%FM = ( 'Radio City' => '91.1',
'Big FM' => '92.7',
'Red FM' => '93.5',
'Radio One' => '94.3',
'Radio Mirchi' => '98.3',
'Fever' => '104.0',
'Oye FM' => '104.8',
'FM Rainbow' => '107.1',
'FM Gold' => '100.7');
foreach $station (sort { $FM {$a} <=> $FM {$b}} keys %FM )
{
print "$station is $FM{$station} MHz.\n";
}
%FM = ( 'Radio City' => '91.1',
'Big FM' => '92.7',
'Red FM' => '93.5',
'Radio One' => '94.3',
'Radio Mirchi' => '98.3',
'Fever' => '104.0',
'Oye FM' => '104.8',
'FM Rainbow' => '107.1',
'FM Gold' => '100.7');
foreach $station (sort { $FM {$a} <=> $FM {$b}} keys %FM )
{
print "$station is $FM{$station} MHz.\n";
}
No comments :
Post a Comment