our $xxxxxxx;
foreach $v (keys %main::) { print "main> $v\n" if $v =~ /xxxxxxx/}