while (my $testWord = <$listWord>){ ...

##</code><code>##

main(my $testword);

##</code><code>##

my($bigramSuccess, $distanceSuccess, ) = main(my $testword, $r
+ightWord);