#!/usr/bin/env perl
use strict;
my $sum=0;
my $a=100;

while ($a>0)
  {
    if (!($a%3)){$sum=$sum+$a;}
    $a=$a-1;
  }
print "SUM=$sum";