Select Code to Download

use strict;
my @values = ( 7, 38, 44, 2, 0 );
...
  $product *= $_ for 2 .. $number;
  print "$number Factorial is $product\n";
}