my @array;
for (LIST) {
   STMT*
   push @array, EXPR;
}