Another option
Code:
alias sortlist {
  var %v1 = 1 
  while (%v1 <= $lines(1.txt)) {
    write -s $read(1.txt,%v1) proxy.txt $read(1.txt,%v1)
    inc %v1
  }
  write -c 1.txt
}