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

package MedianAndDouble;
use Exporter 'import';
our @EXPORT_OK = qw{ median_and_double };

sub median_and_double {
    my @l = sort { $a <=> $b } @_;
    return ( ($l[ $#l / 2 ] + $l[ ($#l + 1) / 2 ]) / 2,
             map 2 * $_, @_
           )
}

##</code><code>##

#!/usr/bin/perl
use strict;
use feature qw{ say };
use warnings;

use MedianAndDouble qw{ median_and_double };

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

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