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