If the OP expects that some of the strings to print may decrease in length, then saving the length, so that an appropriate number of spaces can be added to shorter strings to wipe out the prior longer string, could be helpful.
Just change the print statement to print("\e[1K\r$_");
As to showing the most important data the OP should take care of formating the line to show what matters. Still, if there is wrapping around, one possible approach is to clear the screen and reprint. An example:
use strict;
use warnings;
my @a=("qwert","as","z");
$| = 1;
for (0..2) {
print "\e[1J\e[H";
print"$a[$_]"x100;
sleep(1);
}
print "\n";
legend:
\e[1K - clear from cursor to beginning of the line
\r - goto beginning of the line
\e[1J - clear from cursor to beginning of the screen.
\e[H - Moves the cursor to top left corner