use warnings;
use strict;
use diagnostics;

my ($a, $b, $largest, $smallest);
print "Enter your First Number:\n";     # semi
chomp ($a = <>);
$largest = $a;
$smallest = $a;
print "Enter your Second Number:\n";    # semi
chomp ($b = <>);
if ($a > $b)                            # semi
{
        $largest=$a;
        $smallest=$b;
}
else
{
        $largest=$b;
        $smallest=$a;
}
print "The Biggest number is $largest and the smallest number is $smallest\n";