{
    use warnings;
    use strict;
    my($total);
    foreach $_ (1 .. $end) {
        ($total += do {
            (1 / $_)
        });
    }
    $total;
}