use File::Copy;
my @list = <a/b/*.txt>;
foreach my $file (@list) {
  copy($file,"a/");
}