my $h = peer_my(1);
my $valiable_code;
foreach my $key (keys(%{$h})) {
$valiable_code .= "my $key = \$h->{'$key'};\n";
}

eval($valiable_code . $from_file_code);

といった感じで実現できました！
皆々様ありがとうございました！！！