Use Term::ProgressBar for stuff like this, you'll save yourself needless work.

use Term::ProgressBar;
my $file = ...;
my ( $line_count ) = qx{ wc -l $file } =~ /^(\d+)/;
my $pbar = Term::ProgressBar->new({count => $line_count });
open my $fh, '<', $file or die "$file: $!";
my $i = 0;
while (<$fh>) {
    chomp;
    $pbar->update($i++);

    ...
}
[download]