use strict;
use File::Copy;

my $source = 'src1';

foreach my $dest ( 'dest_1', 'dest_2', 'dest_3' ) {
    copy($source, $dest);
}