lanx@nc10-ubuntu:~$ perl
my @systems=qw(SERVER1 SERVER2 SERVER3);
foreach my $system (@systems) {
    print "Now powering on $system:";
    print "\t\t[DONE]\n";
}
__END__
Now powering on SERVER1:		[DONE]
Now powering on SERVER2:		[DONE]
Now powering on SERVER3:		[DONE]
lanx@nc10-ubuntu:~$