#!/usr/bin/perl
use strict;
use warnings;
use constant LIMIT => 4;

my @a = qw ( a bc def ghij klmno );

printf "%s " x LIMIT, @a;
print "\n";