#!/usr/local/bin/perl
 @a=[1,2,3,4]; foreach(@a){print "$_"}