#!/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);