#!/usr/bin/perl use warnings; use strict; use Data::Dumper; my %fruits = ('banana'=>30, 'apple'=>150, 'grapes'=>80,'pineapple'=>60); #print Dumper(%fruits); #print $fruits{banana}; fun_fruits(\%fruits); sub fun_fruits { my $fruit_arr = shift; foreach (sort keys %{$fruit_arr}) { print $_, " : ", $fruit_arr->{$_},"\n"; } }