C:\>perl
our $Var = 20;
while ( ($x, $y) = each %::) { print "$x => $y\n" if $x =~ /Var/ }
^D
Var => *main::Var