...
for(1..15){ print $_;sleep 1; print "\b"x(length$_)}
...