simsim in perl