#!/usr/bin/perl

use warnings;
use strict;

my @a = (1, 2, 3);
foreach my $i (@a) {
    print "$i\n";
}