use FileHandle;
...
open(FIFO, ">", "named.pipe") or die "open failed; $!";
FIFO->autoflush(1);
...
for $file (@list) {
  print FIFO $file, "\n";
  sleep(...);
}
close(FIFO);