use strict;
use warnings;
use feature qw/ :5.10 /;

my @ar = qw/1 2 3 4 5/;

$[=1;

say $ar[$_] for (1..@ar);