use strict;
use warnings;
my @a=(1,2,3,4,5);
foreach (@a)
{
    print $_;
}