c:\@Work\Perl>perl -wMstrict -le
"print qq{perl version $]};
 ;;
 my @ra = qw(a b c d);
 my $ar = \@ra;
 print ${       ra   }[2];
 print ${     @ ra   }[2];
 print ${     $ ar   }[2];
 print ${ @    $ar   }[2];
 print ${ @ { $ ar } }[2];
 ;;
 my %h  = qw(a aye  b bee  c see);
 my $hr = \%h;
 print ${       h    }{b};
 print ${     % h    }{b};
 print ${     $ hr   }{b};
 print ${ %    $hr   }{b};
 print ${ % { $ hr } }{b};
"
perl version 5.008009
c
c
c
c
c
bee
bee
bee
bee
bee