#!/usr/bin/perl -w
use strict;
use 5.10.0;

## my $n; for (1..5) { $n++; say $n } ## wrong

foreach my $n (1..5) { say $n;}

__END__
1
2
3
4
5