my $command = 'paste ' . join(' ', @ARGV);
open FH, $command .'|';
while <FH> {
  @one_line = split "\t", $_;
  # do something
}