$|++;
for (1..10){
        $pid[$_]=open($fh[$_],"-|");
        next if $pid[$_];
        print;
        exit(0);

}
foreach my $i (1..10){
        my $fh=$fh[$i];
        while(<$fh[$i]>){
                print "'$_'";
        }
        close $fh[$i];
}