my @files = qw/ a b c d e f g/; my $total_steps = int @files; my $step = 0; for my $file ( @files ){ $step ++; print "\rStep $step / $total_steps\n"; select undef, undef, undef, 0.3; } print "Done\n"; __END__ Step 1 / 7 Step 2 / 7 Step 3 / 7 Step 4 / 7 Step 5 / 7 Step 6 / 7 Step 7 / 7 Done