#!/usr/bin/perl

use strict;

# set array to 1 instead of 0
$[ = 1;

my ($field_sep, @argv, $file, @f); 

$field_sep = "\t";         # tab
@argv      = @ARGV;        # put all command line arg in @argv
$file      = pop(@ARGV);   # use the last argv as the file

open(FILE,"$file") or die $!;
while(<FILE>) {

  chomp;
  @f = split(/$field_sep/);

#  print "ida $f[0]&\n";
 system("ida $f[0]&\n");

}
close(FILE);