clustering in perl comming up