Select Code to Download

open(my $fh_x, '<', 'x') or die $!;
while (<$fh_x>) {
...
       print $fh_out ("$linex$liney\n");
    }
}

open(my $fh_x, '<', 'x') or die $!;
while (<$fh_x>) {
...
    }
    $pm->finish   
}

my @y;
{
...
       print $fh_out ("$linex$liney\n");
    }
}

my @y;
{
...
    }
    $pm->finish   
}