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

my $count = 1;

for ( 'a' .. 'z' ) {
    printf( "%5d %s\n", $count++, $_ );
}

print "\n\n";

$count = 1;

for ( 'a' .. 'z' ) {
    printf( "%5s %s\n", colored( $count++, 'magenta' ), $_ );
}