Select Code to Download

#!/usr/bin/perl
use strict;
...
             map 2 * $_, @_
           )
}

#!/usr/bin/perl
use strict;
...

my @list2 = (10, 11, 12, 13);
say join ' ', median_and_double(@list2);