use strict;
use warnings;

my $status = 'frst';
my $element = 'tyr';
my $Status = "\033[32m$status";
my $Element = "\033[36m$element";
my $ms = '0ms';
my $count = '1.24ms';

my $format = "        %-4s           %-18s             %-7s        %-3s\n";

printf $format, $Status, $element, $ms, $count;