$ perl -MO=Deparse 647981.pl
use warnings;
use strict 'refs';
my(@arr) = (12, 13, 14);
my(%hash) = ('outer', ('cool', 1, 'Kewl', 2, 'odd'));
print keys %hash, '||', values %hash, '  ', $hash{'2'};
647981.pl syntax OK