15 lines
422 B
Perl
15 lines
422 B
Perl
|
#!/usr/bin/perl
|
||
|
use warnings;
|
||
|
use strict;
|
||
|
my %hash = (
|
||
|
1 => "January", 2 => "February", 3 => "March", 4 => "April",
|
||
|
5 => "May", 6 => "June", 7 => "July", 8 => "August",
|
||
|
9 => "September", 10 => "October", 11 => "November", 12 => "December"
|
||
|
);
|
||
|
my $href = \%hash;
|
||
|
for (keys %$href) {
|
||
|
print "Key: ", $_, " ";
|
||
|
print "Hash: ",$hash{$_}, " ";
|
||
|
print "Ref: ",$$href{$_}, " ";
|
||
|
print "\n";
|
||
|
}
|