knoppix@Microknoppix:~$ perl -E '
> @array = ( 1 .. 5 );
> say qq{@array};
> say scalar @array;
> say $#array;'
1 2 3 4 5
5
4
knoppix@Microknoppix:~$