my %data foreach my $key (sort keys %data) { print "Key - $key and b value - $data{$key}} #### $VAR1 = 'Dec13'; $VAR2 = '2'; $VAR3 = 'May14'; $VAR4 = '2'; $VAR5 = 'Apr14'; $VAR6 = '2'; $VAR7 = 'Mar14'; $VAR8 = '2'; #### key - Apr14 and value - 2 key - Dec13 and value - 2 key - Mar14 and value - 2 key - May14 and value - 2 #### key - Dec13 and value - 2 key - Mar14 and value - 2 key - Apr14 and value - 2 key - May14 and value - 2