#! usr/bin/perl
use strict;
use warnings;


# CHECK FOR CORRECT USAGE
unless (@ARGV == 1){
	die "Usage: perl $0 \"file.txt\"\n";
}

my $input = "$ARGV[0]";
#chomp ($input);

open (READ, $input) || die "Cannot open $input: $!\n";

my $line = '';
my %data;
while ($line = <READ>){
	chomp $line;
	if ($line =~ m/^[0-9]/i);
		$i++;
		$data{"$i"} = [ split /\t{1}/, $line ];
	}
}