Select Code to Download

sub find_result {
   my $number = shift;
...

   return $result;
}

%hash = (
  1 => {
...

   return;
}