c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = undef;
 my $t = 0;
 my $u = { qw(a aye  b bee) };
 ;;
 print ${ $s || $t || $u }{a};
"
aye