Select Code to Download

my @filtered;
foreach my $element ( @arg ) {
  if ( -d $element ) { push ( @filtered, $element ); }; 
}

my @filtered = map { -d $_ ? $_ : () } @ar;