#! /usr/bin/perl -l

print "please enter a number: ";
 $n1 = <STDIN>;

print "please enter a number";
 $n2 = <STDIN>;

if ($n1 < $n2) {
        print "$n1" ,  "$n2"  ; }
else {
        print "$n2"  , "$n1" ; }