use IPC::Open2;
my $pid = open2(\*RDRFH, \*WTRFH, './program');
print WTRFH @{$mail[0]};
close WTRFH;
waitpid $pid, 0;
my @array = <RDRFH>;
close RDRFH;