You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
16 lines
303 B
Perl
16 lines
303 B
Perl
5 years ago
|
#!/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" );
|
||
|
|
}
|