#!/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 color 'bold red';
    print " \t\t[DONE]\n";
    print color 'reset';
}
_END_
Now powering on SERVER1:          [DONE]
Now powering on SERVER2:               [DONE]
Now powering on SERVER3:               [DONE]