# Patrick Robinson
# 5.15-3
# Input 3 Names
# Output Names in Alphbetic Order

print "Enter 1st name: ";
$name1=<STDIN>;
print "Enter 2nd name: ";
$name2=<STDIN>;
print "Enter 3rd name: ";
$name3=<STDIN>;

#Sort Names

if ($name1 gt $name2) 
	{$temp = $name1;
	 $name1 = $name2;
	 $name2 = $temp;}
if ($name2 gt $name3)
	{$temp = $name2;
	 $name2 = $name3;
	 $name3 = $temp;}
if ($name1 gt $name2) 
	{$temp = $name1;
	 $name1 = $name2;
	 $name2 = $temp;}

#Print Sorted Names

print ("$name1");
print ("$name2");
print ("$name3");

print "Press Enter to End";
$temp=<STDIN>;