loadfile into $array
while ubound($array)>-1
 $x=randomnumber
 $item=$array[$x]
 ;do stuff with $item
 redim $newarray[ubound($array-1)
 for $c=0 to $x -1 
   $newarray[$c]=$array[$c]
 loop
 for $c=$x + 1 to ubound($array)
   $newarray[$c-1]=$array[$c]
 next
 $array=$newarray
loop