#!/bin/perl

my @c0 = (1,2,3);
my @c1 = (1,2,3,4);
my @c2 = (1,2,3,4,5);
my @c3 = (1,2,3,4,5,6);
my @c4 = (1,2,3,4,5,6,7);

my @call = (\@c0,\@c1,\@c2,\@c3,\@c4);

foreach $acall (@call) {
        print "$acall";
        foreach $anum (@{$acall}) {
                print " $anum";
        }
        print "\n";
}