Select Code to Download

use strict;

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