in reply to table column into an array

You'll want to use split and a list slice.

my $rtn = ( split(/\t/,$line) )[2]

I used 2 since you want the 3rd element out and we start counting at 0

slices are explained in perldata



grep
Mynd you, mønk bites Kan be pretti nasti...