Array in Kixtart

I have a little script that can read the three words that the text file contain. The contants of the text file looks like :
one#
two#
three#

With the following script I can get the three strings form the text file:
if open (1,"FilePath")=0
$line=readline(1)
  while @ error=0
    ?$line
    $line=readline(1)
  loop
Endif
close(1)

The output of this script is:
one#
two#
three#

What I want is after getting the three strings from the text file to make is a three element array. So rather that having

one#
two#
three#

I would like to have an output like
one#two#three#