chomp(my $host = qx(hostname -s));
foreach (@$ganglia_name){
  system("ssh $_") unless ($_ eq $host);
  # run the job
}

##</code><code>##


Last login: Sat Jul 25 15:59:41 2009 from fish.local
Rocks Compute Node
Rocks 5.1 (V.I)
Profile built 13:38 22-Jul-2009

Kickstarted 15:54 22-Jul-2009
[baxy@compute-0-3 ~]$