How about

use File::Copy qw(move);

my $extension = "12345";
move("file", "file.$extension");
[download]

There's also the handy rename() function, but is known to have various platform issues. See the File::Copy docs for more info.
HTH

_________
broquaint