say $_ for sort map { join ',', @$_ } grep { @$_ > 1 } values %tmp;