%hash = ( Karl  => 1,
          Joe   => 3,
          Shawn => 0,
          Paul  => 2, 
          Bill  => undef );


@hashKeys = keys( %hash );

for ( $i = 0; $i < @hashKeys; ++$i ) {
   print "$hashKeys[ $i ] => $hash{ $hashKeys[ $i ] }\n";
}