@list1 = sort(@list,$l); # Very important to sort
  print"@list1\n"; # Show what's happening