foreach my $i (@_) {