for word in foo bar baz bletch quux qip qua
    do
        echo $word
    done > foo

##</code><code>##

    open FIFO, "<foo" or die "foo: $!\n"; 
    while (<FIFO>) {
      chomp;  
      print "$_\n"; 
    }