my @results;

for my $cmd ( @cmds ) {
    sshopen2("$user\@$host", *READER, *WRITER, "$cmd") || die "ssh: $!";
    my $result = '';
    $result .= $_ while <READER>;
    push @results, $result;
}