#!/usr/bin/perl
use warnings;
$out = "outFile";
$newdir = $newdirectory;
open(TABLEA, "dirlist");
@tablea = <TABLEA>;
foreach $dir (@tablea) {
    chdir $dir;
    if (glob("*.txt")) {
        system("mv $out $newdir");
    }
}