#!/usr/bin/perl

use strict;
use warnings;
use Array::PrintCols;

my @content = qw( 123 456 789 012 345 678 901 );
my $size = scalar @content;
print"Array size: $size\n"; 
print_cols \@content, -1, 0, 1;
[download]