use strict; use warnings; use Text::Autoformat; my @array=qw/@/; for my $i(1..10){ @array = autoformat (@array, { justify => 'center' }); print "@array\n"; ((push @array, '@') x 2) if scalar(@array) < 10; ((pop @array) x 2) if scalar(@array) >= 10; }