perl -nae 'rename $F[0], $F[1]' newnames.lst