foreach (@{$found{$sub}}){
                 print "$tab$found{$sub}[$_]\n";