Select Code to Download

#! perl
use strict;
...

@matches = sort { length $a <=> length $b } @matches;
print "The closest match is:  ", $matches[-1], "\n";

fal
falle
fall

 2:31 >perl 454_SoPW.pl
Enter the target word: fallen
The closest match is:  falle

 2:31 >