@array = ();
foreach (LIST) {
   push @array, EXPR;
}