#!/usr/bin/perl -w


push @l, split /\s+/, <>;


$m = mediana(@l);
print "La mediana es $m\n";

exit 2;



sub mediana {
    my @l = @_;
    $count = scalar(@l);
    @l = sort {$a <=> $b} @l;
    
    if ($count % 2 == 1) {
	return $l[int (($count/2)-1)]; 
    }else{
	$count /= 2;
	return ( $l[$count-1] + $l[$count] )/2;
    }
}


__END__
Algunas veces la mediana dice más que la media, i.e. salarios