Statement Perl

$factorial = 1;
for (my $loop_index = 1; $loop_index <= 6; $loop_index++) {
    $factorial *= $loop_index;
}