for ($i=0; $i<53; $i++) {
}

##</code><code>##

foreach my $item (@list) {
    $item = mutate $item;
}

##</code><code>##

@list = map { mutate $_ } @list;