#!/user/local/bin/perl -w
#hello world twice funky
use strict;
my @hello=('H','E','L','L','O',' ','W','O','R','L','D','!');
my $i = 0;
foreach my $var(@hello){
        while($i < 10000){
                my @letters = ('A'..'Z');
                my $m = $letters[int rand @letters];
                print "$m\b";
                $i++
                }
        $i = 0;
        print $var;
        }
@hello = reverse(@hello);
print "\n             ";
foreach my $var(@hello){
        print "\b\b";
        sleep 1;
        $i++;
        print $var;
        }