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