Select Code to Download

foreach my $filename( @files ){
    my $file = "text_000".$variable."."."lab";
...
    close ($output);
    $variable++;
}

foreach my $filename( @files ){
    my $file = "text_000".$variable."."."lab";
...
    $variable++;
}