use 5.012; no warnings; my @t = map { rand } 1..60; my %g = (k => \@t); for my $n (0..1e3) { (my $s = $n) =~ y/0-9/ {}@#$%=^~+/; my $c= qq(${s}g{k}}); if (60 == eval $c) { warn $c; } }