my $found = grep {/^$search$/}  @{$sort->{$column}};