#!/usr/bin/perl
use strict;
use warnings;
use Term::ANSIColor;

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