You made an object of class Mailsort, but then you turned around and told Perl the object isn't a Mailsort object but rather a DSA object (bless ($params,$typein);). Take your pick.