Select Code to Download

sub my_sort {
SUB_BODY:
...
    return defined $a->[$i] ? 1 : -1;
  }
}

sub my_sort {
  my $i;
...
  }
  return defined $a->[$i] ? 1 : -1;
}