my @names = grep -f, <$vob/*tim>; #### my @names = grep -f, ;