Select Code to Download

     5!                 5!
------------ * 3 + ------------ * 3  = 150
1! * 2! * 2!       1! * 1! * 3!

sub mult_coeff {
   my $c = shift();
...
use Data::Dumper;
my @results = mult_coeff(3, qw(a b c d e));
print Dumper \@results;