use File::Copy;
copy("a/b/*.txt","a/");
##</code><code>##

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