$ perl -Mstrict -we'BEGIN {$_="foo";} sub bar () {"quux"} my %foo = ( 1e0 => "foo", bar => "quux", length => "baz");print "@{[keys %foo]}", $/'
length bar 1
$