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