#-------------------
chdir $SearchDirectory;

foreach my $file (@data){

if(-e $file){ move($file, $DestinationDirectory }

}
#--------------------