My apologies. This is what I have so far.

 
#!/usr/bin/perl
use Modern::Perl;

my ($total, $howmany, $largest, $smallest,$number, $average) = (0, + 0
+, 0, 0, 0, 0);

print "Enter a value, negative value to end ";
chomp ($number =<> );

$smallest = $number;
$largest =$number;
while ($number != -1) {
    $total += $number;
    $howmany += 1;
    $smallest = $number if $number < $smallest;
    $largest = $number if $number > $largest;
    $median = ($number, $number, $number
print "Enter a value, negative value to end ";
chomp ($number =<>);
}

if ($howmany == 0 ) {
    say "There were no values to process. ";

}

else {
    say "AVG:      ", $total / $howmany;
    say "LRG:      ", $largest;
    say "SML:      ", $smallest;
    say "MED:      ",
}
[download]