Select Code to Download

sub _unsigned_to_signed {
   return unpack('i', pack('I', $_[0]));
...
      }      
   }
}

sub my_binsearch($\@) {
   unshift(@_, sub { $a <=> $b });
...
   undef $idx if $idx < 0;
   return $idx;
}

my @unsorted = qw( ... strings ... );

...
}

print(join("\n", @sorted), "\n");