#! /usr/bin/perl

print "\nType in 5 numbers.\nnumber1";
$a = <>;

print "\nThe second number\n";
$b = <>;

print "\nThe third number\n";
$c = <>;


print "\nThe fourth number\n";
$d = <>;

print "\nThe fifth number\n";
$e = <>;

$bin ="";

if ($a > $b {$bin = $b; $b = $a; $a = $bin;
print "nThis is line 1 $a $b \n";}

$a = <>;
$b = <>;
$c = <>;
$d = <>;
$e = <>;

if ($b > $a) { print "\n This is line 2 $a $b \n";}

if ($c > $d) {$bin = $d; $d = $c = $sbin; 
print "\n $c $d \n";}