use warnings;
use strict;
use Term::ANSIColor;

my @field = 1..6;
my @fmts = qw(%-4s %-11s %-13s %-10s %-7s %0s);
my @cols = qw(green red green red green red); # Fill in your colors here
for my $i (0 .. $#field) {
    print color($cols[$i]);
    printf $fmts[$i], $field[$i];
}
print color('reset'), "\n";