perl -le"print for keys %::"
perl -le"print for keys %main::"

##</code><code>##

$ perl -le"package stuff; $soy =1; $sauce =2; print for keys %stuff::"
sauce
soy

##</code><code>##

$  perl -MData::Dumper -le"package stuff; $soy =1; $sauce =2; print &::Dumper( \%stuff:: ) "
$VAR1 = {
          'sauce' => *stuff::sauce,
          'soy' => *stuff::soy
        };