#!/usr/bin/perl
@arr = (1,2,3,4,5);
foreach $a (@arr){
  print;
}
exit;