#!/usr/bin/perl
$sum += $_ while (($_ = (3*++$multiply1)) < 1000);
$sum += $_ while (($_ = (5*++$multiply2)) < 1000);
print $sum;