print $h{$_},$a[$_] for (0..@a-1);