#!/usr/bin/env perl

use strict;
use warnings;
use List::Util qw(reduce);

# Functional
print (reduce { $a + $b } (grep { $_ % 3 == 0 || $_ % 5 == 0 } 1..999));
print "\n";

# Imperative
my $sum;
foreach my $i (1..999) {
    if ($i % 3 == 0 || $i % 5 == 0) {
        $sum += $i;
    }
}
print "$sum\n";