$i = 0;
open(DATA,"text.txt");
foreach $line (<DATA>) {
   @site1 = split " ", $line;
   $master[$i] = "$site1[0], $site1[1]";
}
sort @master;
print "1. $master[0]";
print "2. $master[1]";
print "3. $master[2]";
print "4. $master[3]";
print "5. $master[4]";