#!/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";
}

#---------------------------------------------------------------------------------------------------------#

#!/usr/bin/perl
@P=();
for($j=0;$j<10;$j++) { for($i=0;$i<10;$i++) {
        $P[$j][$i]=$j*10+$i;
}}
$s=\@P;
for($j=0;$j<10;$j++) {
        for($i=0;$i<10;$i++) {
                print "$$s[$j][$i] ";
        }
        print "\n";
}