my @test = 1 .. 4;
warn scalar @test;
warn $#test;
__END__
4 at - line 2.
3 at - line 3.