@arr = blablabla...
foreach my $var (@arr) {
   print "$var\n";
}