my @dup_dirs = grep { $dirs{$_} > 1 } keys %dirs;