#!/usr/local/bin/perl
$total = 0;
$firstcounter = 0;
DONE: while ($firstcounter < 10) {
$secondcounter = 1;
while ($secondcounter <= 10) {
$total++;
if ($firstcounter == 4 && $secondcounter == 7) {
last DONE;
}
$secondcounter++;
}
$firstcounter++;
}
print ("$total\n");