my $a = chr(65);
my $b = chr(66);
my $c = chr(67);
printf "%s" x 3, $a x 2, $b x 3, $c x 4;