perl -e'
   use 5.014;
   use warnings;

   my %props; while (<>) { chomp; ++$props{$_}; }

   say "$props{$_} $_"
      for
         sort { $props{$b} <=> $props{$a} || $a cmp $b }
            keys(%props);
' props-*