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