Select Code to Download

#!/usr/bin/perl
use strict;
...
    last if defined $item && $item eq $finish;
    print "$item\n";
}

#!/usr/bin/perl
use constant VAL => 0;
...
        $merge_list[$index][SUM] = $merge_list[$index][VAL] + $list2[$
+merge_list[$index][IDX]];
    }
}

#!/usr/bin/perl
use strict;
...
    print "$min\n";
    $merge_list[$idx]++;
}