#!/usr/local/bin/perl

$total = 0;
$firstcounter = 0;
DONE: while ($firstcounter < 10) {
        $secondcounter = 1;
        while ($secondcounter <= 10) {
                $total += 1;
                if ($firstcounter == 4 &&
                        $secondcounter == 7) {
                        last DONE;
                }
                $secondcounter += 1;
        }
        $firstcounter += 1;
}
print ("$total\n");
