12 lines
256 B
Perl
12 lines
256 B
Perl
|
%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";
|
||
|
|
}
|