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

##</code><code>##

1 2 3 4
5 6 7 8
9 A B C