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