foreach my $a ($1, $2, $3, $4) {