#!/usr/local/bin/perl -w

my $count = 0;
my $line = "";
my @list = ();

open(LIST, "< listfile.txt");
while ($line = <LIST>)
{
	chomp($line);
	my @temp = split(/\t/, $line);
	$list[$count][0] = $temp[0];
	$list[$count][1] = $temp[1];
	$list[$count][2] = $temp[2];
	$count++;
}
close(LIST);

# Should be the second column of the second row.
print $list[1][1], "\n";