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