#!/usr/bin/perl
%month = (
'01', 'Jan',
'02', 'Feb',
'03', 'Mar',
'04', 'Apr',
'05', 'May',
'06', 'Jun',
'07', 'Jul',
'08', 'Aug',
'09', 'Sep',
'10', 'Oct',
'11', 'Nov',
'12', 'Dec',
);
$pointer = \%month;
printf "\n Address of hash = $pointer\n ";
foreach $i (sort keys %$pointer) {
printf "$i is $$pointer{$i} \n";
}