There is a package on CPAN called Games::Cards which might save a lot of wheel reinventing. Did you check it out?

--
જલધર