#for (my $i = 1; $i <= 5; $i++) {
for my $i (1..5) {