#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my $h={};
for my $x ("pop", "shift", "map {1}", "grep {1}", "chomp", "lc", "localtime", "cos") {
	my $str = $x.q/ @{$h->{'/ . $x . qq/'}}\n/;
	print $str;
	eval $str;
	print "\t".$@ if $@;
}
print Dumper $h;