16 lines
303 B
Perl
16 lines
303 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
my %hash = ( A => "AA",
|
||
|
|
B => "BB",
|
||
|
|
C => "CC",
|
||
|
|
D => "DD",
|
||
|
|
E => "EE" );
|
||
|
|
|
||
|
|
my $hashReference = \%hash;
|
||
|
|
|
||
|
|
foreach ( keys( %$hashReference ) ) {
|
||
|
|
print( "The $_ goes $hashReference->{ $_ }.\n" );
|
||
|
|
}
|