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";