use strict; use warnings;
use Data::Dumper::Simple;

foreach my $d (@dir) {
   if (-d $d) {
      print $d, "is a directory.\n";
   }
   else {
      warn "Not a directory:".Dumper(\$d);
   }
}