use strict;
use warnings;
use IO::Handle;

autoflush STDOUT 1;
my $str = "Hello!";
chomp($str);
foreach ( split //, $str ) {
    print $_, " ";
    sleep 1;
}
print "\n";