Select Code to Download

#!/usr/bin/perl
use warnings;
...
    chomp;
    print join (' ', (@{$file1Data[$. - 2]}, split /\s+/)[@slice]), "\
+n";
}

col1 col3 col3
1 77 7
2 88 8
3 99 9