Select Code to Download

my @systems=qw(SERVER1 SERVER2 SERVER3);
foreach my $system (@systems) {
    print "Now powering on $system:";
    print colored("\t\t[DONE]\n", 'bold green');
}

Now powering on SERVER1:          [DONE]
Now powering on SERVER2:               [DONE]
Now powering on SERVER3:               [DONE]