#!/usr/bin/perl

print "\nInput first string: ";
$string1 = <STDIN>;
chomp $string1;

print "Input second string: ";
$string2 = <STDIN>;
chomp $string2;

if ( $string2 == $string1 )
   {
      print "$string2\n";
      print "$string1\n";
   }
if ( $string2 > $string1 )
   {
      print "$string1 " ;
      print "$string2\n";
   }
if ( $string1 > $string2 )
   {
      print "$string2 " ;
      print "$string1\n";
   }