print "Number => $hash{Number}\n"; while (my ($k, $v) = each %hash) { next if $k eq 'Number'; print "$k => $v\n"; } [download]
In reply to Re: Hash Order by JavaFan in thread Hash Order by Sporti69