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