#!/usr/bin/perl

use strict;
use warnings;
 
 my $file;
 my @files;
 my $parse;
 

 my @files = <*>;
 foreach $file(@files)
 # chomp ($file);
 
  {
    $parse = system qq(paste <(cut -f1,2,13 $file) <(cut -f12 $file));
  }