Select Code to Download

use autodie;
open my $fh, "cut 1-9 -d ' ' $file1 $file2 $file3 $file4 |";
...
    my @columns = split ' ';
    ... Do something with 9 columns ...
}