@array = ( "one", "two", "three" );
($len) = @array;
$len1 = @array;

print "1 - ", $len, "\n";
print "2 - ", $len1, "\n";