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

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

print "Please enter a number or -1 to end: ";
chomp ( $number = <> );

while ( $number != -1 ) {
    $total += $number;
    $howmany ++;
    print "Please enter a number or -1 to end: ";
    chomp ( $number = <> );
}

if ( $howmany == 0 ) {
    say "There were no numbers to average.";
}
else {
    say "The average of the numbers was ", $total / $howmany;
    say "The largest number was ", $largest;
    say "The smallest number was ", $smallest;