%presidents = ( George => "A",
                Abe    => "B",
                Thomas => "C",
                Harry  => "D" );
      

@keys = keys( %presidents );

while ( $key = pop( @keys ) ) {
   print "$key => $presidents{ $key }\n";
}