my %seen; for my $key ( 'Number', keys %hash) ) { next if $seen{$key}++; my $value = $hash{$key}; print "$key => $value\n"; } [download]
In reply to Re^2: Hash Order by bart in thread Hash Order by Sporti69