Maybe something like this:

my @list;
while (my $line = <STDIN>){
  chomp $line;
  my($one, $two, $three) = split(/\t/, $line);
  if(defined $three) { push @list, $three }
}
for my $i (@list){
  print "$i\n";
}
[download]