~$ perl -E 'my @x=({uno=>'one'},{dos=>'two'},{tres=>'three'}); map {say}  keys %$_ for @x'