Select Code to Download

sub crop_binary_insert {
  my ($a, $x) = @_;
...
  pop @$a;
  splice @$a, $min, 0, $x;
}