for my $i (@array) {
   mangle($i)
}