use strict;
use warnings;

##</code><code>##

my @array ...
my $i ...
my $element ...

##</code><code>##

$i < 10

$array[$i]