...snip...
foreach $dir(@dirlist) {
   my %info;
   my $newdir=($dest."\/".$dir);
   if (-f $absdir."\/".$dir) {
   %info=(
       driver =>"working",
...snip...