#!/usr/bin/perl -w

use strict;
use Net::SSH qw(ssh);
 
my @host = qw[ 192.168.15.2 192.168.14.2 192.168.16.2 192.168.17.2 ];

foreach (@host)
{
     run($_);
}

sub run {
 
 my $host = $_[0];
 my $user = 'root';
 my $host = 'test-1';
 my $cmd = '/usr/local/scripts/down.pl';
 
 ssh("$user\@$host", $cmd);
 
 if ($something = somevalue){
  mail();
 }
}