#!/usr/bin/perl
%weekday = (
'01' => 'Mon',
'02' => 'Tue',
'03' => 'Wed',
'04' => 'Thu',
'05' => 'Fri',
'06' => 'Sat',
'07' => 'Sun',
);
$pointer = \%weekday;
$i = '05';
printf '$$pointer{$i} is ';
printf "$$pointer{$i} \n";
printf '${$pointer}{$i} is ';
printf "${$pointer}{$i} \n";
printf '$pointer->{$i} is ';
printf "$pointer->{$i}\n";
printf '${$pointer{$i}} is ';
printf "${$pointer{$i}} \n";
printf '${$pointer->{$i}} is ';
printf "${$pointer->{$i}}";