foreach (@matches) {
    chomp;
    print "'$_'\n";
    my ($p1, $p2) = get_p();
    if (my $session = Net::Telnet::Cisco->new(Host => $_) ) {
        $session->login('myname', $p1);
        warn "Can't enable: " . $session->errmsg
          unless $session->enable($p2);

        my @version = $session->cmd('show version  ');
        print @version, "\n";
    }
    else {
        die "Couldn't connect to $_";
    }
}
exit;

##</code><code>##

my @version;
foreach (@matches) {
    ....
    @version ||= $session->cmd('show version  ');
}
print @version, "\n";