Select Code to Download

use strict;
use warnings;
...
    my @cards = split / /, "5$_[0]";
    # Do whatever with @cards;
}

@_ = (2..4,6..9,'A');
comb('', 4, @_,@_,@_,@_);

comb('', 4, 2..4,6..9,'A');

use strict;
use warnings;
...
}

sub sum { my $n; $n += $_ for @_; return $n; }