You could also try using AnyData

use AnyData;

my $table = adTie('Tab', 'file.tsv', 'r');

# Get all column Names
my @col_names = adNames($table);

# or get all values in a column
my @col_vals = adColumn($table, 'column_name');

# or get a column value from a row
print $table->{row_name}->{column_name};

# or search all rows for a value

while (my $row = each %$table) {
    print $row->{column_name} if $row->{row_name} eq 'this';
}

undef $table;
[download]