my @files = map { -f $_ ?"$dir/$_" : () } readdir( $dirhandle ) ;