Get the array length by assigning the array variable to a scalar variable
#!/usr/bin/perl -w use strict; my @array1; my $scalar1; @array1 = qw(Monday Tuesday Wednesday Thursday Friday Saturday Sunday); $scalar1 = @array1; print "Array 1 is @array1\nScalar 1 is $scalar1\n";