Select Code to Download

%h = (a => 1, b => 2, "*" => 3, 4 => '4a', ab => 42);
@a = (1,2,3,4);
...
print qq|@h{$a[3]}\n|;           # 4a: no warnings
print qq|@h{scalar @a}\n|;       # 4a: no warnings