Perl: Translate an old database-column-identifier to a new one