or

#!/usr/bin/perl -w
use strict;

my @one=(1,2,3,4,5,6);
print scalar(@one);
[download]

or

print $#one;
[download]

depends on what you want.
UPDATE
you should also check out the the basic datatypes, three node