use Modern::Perl qw/2015/;
use File::Copy;
my $source      = 'D:\Perl\scripts\data0.txt';
my $destination = 'D:\Perl\scripts\data';
copy( $source, "$destination$_.txt" ) or die "Copy failed: $!" for ( 1 .. 33 );