sub name_transform {
    my ($oldname, $newname) = shift;
    $newname = ;# whatever
    return $newname;
}

##</code><code>##

for (glob '/path/to/222*') {
    rename $_, name_transform($_);
}