$| = 1; foreach my $letter (split '', $string) { print $letter; sleep 1; }