open(PIPEWRITE, '|./program')
    or die "Can't start pipe: $!";
print PIPEWRITE for @array;
close PIPEWRITE 
    or die "Cant't close pipe: $!";