Select Code to Download

#!perl -w
use strict;
...

sub merge_multiple {
    my $last = 0;

    my %vals = map { $_ => $_ } sort { $a <=> $b } @_;

    my %vals = map { $_ => $_ } @_; 
    sub {
...
        $last = $r;
    }
}