#!/usr/bin/perl
use warnings;
use strict;

print "Please enter one number per line (empty line ends input):\n";

my $different = 0;
my $biggest   = 0;

# Loop and read user input
while (1) {
    chomp(my $input = <STDIN>);
    if ($input eq ''){
        last;
    }
    if ($biggest == 0){
        $biggest = $input;
    }
    if ($input != $biggest){
        $different = 1;
    }
    if ($input > $biggest){
        $biggest = $input;
    }
}

if ($different == 0){
    print "All numbers are the same\n";
}
print "The biggest number is $biggest\n";