print "Enter word1: >> ";
chomp (my $word1 = <SDTIN>);

print "\nEnter word2: >> ";
chomp (my $word2 = <SDTIN>);