#!/usr/bin/perl

@a = qw(one two three);
%h = map({$_ => $count++} @a);
print "$_ => $h{$_}\n" foreach (keys(%h));
foreach (sort( {$h{$a} <=> $h{$b}} keys(%h))) {
   print "$_\n";
}