use strict;

$[ = 2;

my @num = ( 1..4 );

print "No of elements >> ", $#num+1, "\n";
print "No of elements >> ", scalar @num, "\n";