local($nextvar) = scalar(<STDIN>);

print "Length is ", scalar(@ARRAY), "\n";
