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