$|=1; # flush output after each print
@outputs = qw/fred jim sheila barney/;
$maxlen = 6;
$delaysecs = 1;
for my $out (@outputs) {
   printf "\r%-${maxlen}s", $out;
   sleep($delaysecs);
}
print "\n";