#!/usr/bin/perl -w
use strict;

my $host;
my @hosts = ("host1","host2");

foreach $host (@hosts)
{
  if(`ping $host -c 1` == 0)
    {
      `ssh $host Start.sh &`;
    }
}