open FILE, "< $ARGV[0]" or die "Unable to open file : $!\n"
while (<FILE>) {
  push @{$data[$.]}, split /[\s\t]+/;
}