my $spacer = 0;
while(...)
   #...
   $spacer = $spacer + 18;
   $mw->place(-x=>2, -y=>$spacer);
}