Select Code to Download

#!/usr/bin/perl

...

print @{ @{ $h{'word3'} }[0] }[0], "\n";

print @{ @{ $h{'word3'} }[0] }[0]->[0], "\n"; # prints "1"
print @{ @{ $h{'word3'} }[0] }[0]->[1], "\n"; # prints "3"