Select Code to Download

sub catch_error{
   my ($fh, $str, $location_hash, $cat_hash ) = @_;   
...
   delete $location_hash->{'the key'};
   ...
}