use strict;
my @values = ( 7, 38, 44, 2, 0 );

for my $number (@values) {
  my $product = 1;
  $product *= $_ for 2 .. $number;
  print "$number Factorial is $product\n";
}