#!/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 * $_, @_
           )
}