for (a..z) {$in {$_}=int rand(100) };
foreach (keys %in){
    print "in $_ is $in{$_}\n";
    $$out{$_}=$in{$_}
}
foreach (keys %$out){print "out $_ is $$out{$_}\n"}