my $file = 'file';
my $extension = '.123456';
my $file .= $extension;

Update: sorry about that, I misunderstood the question...broquaint's suggestion is the way to go..use File::Copy