#!/usr/local/bin/perl -w

use strict;
use File::Copy;
use File::Basename;

my @files = glob "/xxx/*.pl";
my $in = "/xxx/";
my $out = "/yyy/";
@files = map { basename($_) } @files;

move "$in/$_", "$out/$_" for @files;