use File::Copy qw(move);

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