my %hash;
my $x = "0";
open(F, "speech.txt") or die "Unable to open file: 'speech.txt'!\n$!";
foreach (<F>){
          chomp;
          $hash{$x} = $_;
          $x++;
}
close(F);