#!/usr/bin/perl %fruits_array = ('Mango'=>45, 'Orange'=>30, 'Grapes'=>40); foreach my $fruit (sort {$fruits_array{$a}<=>$fruits_array{$b}} keys %fruits_array) { print $fruit." = ".$fruits_array{$fruit}."\n"; }
#!/usr/bin/perl %fruits_array = ('Mango'=>45, 'Orange'=>30, 'Grapes'=>40); foreach my $fruit (sort {$fruits_array{$a}<=>$fruits_array{$b}} keys %fruits_array) { print $fruit." = ".$fruits_array{$fruit}."\n"; }