Select Code to Download

sub runsingle {
my %rtoa;
...
    foreach my $key (@{$keys})
    {
        ...

    open my $out_file, '>', 'filename.txt' or die "Ouch, $!";