Select Code to Download

   if (scalar @titles > scalar %titles) {   # no, some basenames are n
+on-unique

$ perl -le'
my @x = "a" .. "z";                                           
...
19/32
19

   if ( @titles > keys %titles ) {   # no, some basenames are non-uniq
+ue