my ($product,@values);

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

foreach my $number (@values)
 {
  unless($number == 0)
   {
    print $number;
    $product *= $number for($number;$number >0;$number--);
    print " Factorial is $product\n";
   }
  else { print "0 Factorial is 1\n"; }
 }

exit(0);