#!/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"; }