#!perl -l
map{$a{join"",sort split//}.=$_}sort<>;map{y/~//d&&print}sort map{chop;"~"x y/\n/ /.$_}values%a