...
my $count = 0;
my $total = @data;
for (@data)
{
     print STDOUT "$_\n";
     $percent_done = $count * 100 / $total;
     $count++;
     $mw->update;
}
MainLoop();