Using keys function with hash reference variable
#!/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" );
}
Related examples in the same category