{
    local $_;
    while (<DATA>)
    {
        ...
    }
}

##</code><code>##

foreach $suffix (@suffix) # Or $s, or maybe use @suffixes
                          # or @suffixen to imply plural...