my $total = 0;
    for $i (1..10) {
        $total += $i;
    }
    print $total, "\n";