#!/usr/bin/perl -w

my @FD;
my @hosts=('poker', 'poker');
for (my $i=0; $i<@hosts; $i++)
{
  my $a="ssh $hosts[$i] cat /tmp/test";
  open $FD[$i], "$a|" or die;
}

for (my $i=0; $i<@hosts; $i++)
{
  my $fd=$FD[$i];
  my $line=<$fd>;
  print "LINE: $line\n";
}