my @dirs = map {chomp; $_} <DATA>;

local $| = 1;
my $i = 0;

for my $dir (@dirs) {
    $i++;
    my $output = int($i / @dirs * 100) . "% ($i/" . @dirs . ")";
    print "\e[K<--  $output complete, $dir -->\r";
    sleep 1;
}
print "\n";