Select Code to Download

  for my $i ( 0..(@a < @b ? $#a : $#b) ) {
    return $a[$i] <=> $b[$i]
...
        if ( $a[$i] ne $b[$i] );
  }
  return $a cmp $b;

if ( condition1() ) {
    do_first_thing();     goto ENDIF_1;
...
}
ENDIF_1:  # and now back to our regular programming...