#!/usr/bin/perl -w

use strict;

my @list = (1, 2, 3);
my $i;

foreach $i (@list)
{
    print ' '.$i;
}
print "\n";
