perl -e ' $ph = [{},]; @aye =$ARGV[0]? @ARGV : (); chomp @aye; map{ exists $ph->{$_} ? $ph->{$_}++ : $ph->[$ph->[0]{$_}=@$ph]++ } @aye; print join "\n", sort{ $ph->[0]{$a} <=> $ph->[0]{$b} } keys %{$ph->[0]}; ' $*