use a list within a file...

I was asked the following question:
hey, I got a .txt file of my friends and I wanna make an alias to msg everyone from that file, using the $read i think, can anyone help me

This was my answer:
--------
alias sendtext {

set %counter001 1

while (%counter001 <= $lines(file.txt)) {

msg $read(file.txt,%counter001) Text to send

inc %counter001

}

}
--------