#!/usr/bin/perl use strict; use warnings; use List::Util qw(max min); my %fruits_array = ('Mango'=>45, 'Orange'=>30, 'Grapes'=>40, 'Apple'=>100); foreach my $fruit (sort {$fruits_array{$a}<=>$fruits_array{$b}} keys %fruits_array) { print $fruit." = ".$fruits_array{$fruit}."\n"; } print "=== \n"; print max values %fruits_array; print "=== \n"; print min values %fruits_array;#!/usr/bin/perl use strict; use warnings; use List::Util qw(max min); my %fruits_array = ('Mango'=>45, 'Orange'=>30, 'Grapes'=>40, 'Apple'=>100); foreach my $fruit (sort {$fruits_array{$a}<=>$fruits_array{$b}} keys %fruits_array) { print $fruit." = ".$fruits_array{$fruit}."\n"; } print "=== \n"; my $maxVal = max values %fruits_array; my ($maxKey) = grep{ $fruits_array{$_} eq $maxVal } keys %fruits_array; print " Max fruits price : ".$maxKey." ".$maxVal; print "\n"; my $minVal = min values %fruits_array; my ($minKey) = grep{ $fruits_array{$_} eq $minVal } keys %fruits_array; print " Min fruits price : ".$minKey." ".$minVal;