#!/usr/bin/perl -w

use strict;

my @ary1 = (0..5);
my @ary2 = (1,3,5);

print scalar(@ary1), " ", scalar(@ary2), "\n";

##</code><code>##

alakaboo:~$ ./test.pl
6 3
5 2