open my $fh, "<", "file_name_here.txt" or die $!;
my @data;
my $header = <$fh>;
while(<$fh>) {
  chomp;
  my @row = split "\t";
  push @data, [ @row[0, 3, 7] ];
}
close($fh) or die $!;