my $progress = 100;    # adjust as needed
my $count    =   0;

while (...)
{
    ...

    show_progress() if (++$count % $progress == 0);
}

progress_complete();

# continue main code

sub show_progress
{
    print '*';
}

sub progress_completed
{
    print " completed\n";
}