foreach $server (@server_list) {
    $ssh = Net::SSH::Perl->new($server);
   ...
  }