#!/share/bin/perl -w

sub by_number { 
	if($a < $b) { return -1; }
	elsif($a == $b) { return 0; }
	else { return 1; }
 }
@list1 = qw(This is a test what else Hello World Hi mom etc etc);
@list2 = ( 100, 26, 3, 49, -11, 3001, 78);
@slist1 = sort @list1;
print "List1 @list1\n";
print "Sorted List1 @slist1\n";
@slist2 = sort @list2;
print "List2 @list2\n";
print  "Sorted List2 (default sort) @slist2\n";

@nlist2 = sort by_number @list2;
print "Sorted List2 (numeric sort) @nlist2\n";