use Net::SSH qw(sshopen2);
use strict;

my $user = "username";
my $host = "hostname";
my @cmds = ( "command1", "command2", "etc" );
my %results;

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

##</code><code>##

my @results;

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