Select Code to Download

#!/usr/bin/perl -w

use strict;
...
my @ary2 = (1,3,5);

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

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