@found = grep { $_->[$column] == $searching_for } @$table;
[download]