%hash = ( '1' => 'one',
          '2' => 'two',
          '3' => 'three',);

for $key (keys %hash)
{
 print "$key\n"; 
}