use strict;
use Data::Dumper;
my @array = (1..9);
print scalar @array[2], "\n";
print Dumper(@array[2]);
print Dumper($array[2]);