my @array = qw/1 2 3 4 5/; print scalar @array, "\n"; # Size of array print $#array, "\n"; # Last element of array