use lib '/opt/perl5/perlbrew/bin/perlbrew/perls/perl-5.14.0/lib/site_perl/5.14.0'; use Games::Cards::Poker; use Math::Combinatorics; @n = ("2","3","4","5","6","7","8","9","T","J","Q","K","A"); @A = join(",", map { join ",", @$_ } combine(5,@n)); $A= @A; print $A;