#!/usr/bin/perl 

use Text::Soundex;
use WWW::Mechanize;
#use MakeRegex;
$DEBUG = true;
$SOUNDEX = 0;


print STDOUT "\nEnter name: ";
$name = <STDIN>;
chomp $name;
=pod
$result = ucfirst( $name );
$totalResult .= $result . " ";
print ( "\n---------- Entered Name\n\n" );
print ($result);

print ( "\n\n---------- Transposed Letters\n\n" );
$result = lc transposeName( $name );
$totalResult .= $result . " ";
print ($result);
calcSoundex( $result );

print ( "\n\n---------- Dropped Character\n\n" ); 
$result = lc dropCharName( $name );
$totalResult .= $result ." ";
print ($result);
calcSoundex( $result );
=cut

#hash table that contains nicknames
%nicknames = (
	Abe => 'Abraham',
	Abram => 'Abraham Abe',
	Bill => 'William Will',
	Will => 'Bill William willy',
	Richard => 'Rick Dick Ric Ricky',
	Rick => 'Richard Dick Ricky',
);

sub matchNickname {
	my $nickTemp;
	foreach my $key(keys %nicknames) {
		my $value = $nicknames{$key};
		if(lc $name eq lc $key){
			print "user typed ".$name." Match the key ".$key." and value is $value\n\n";
			$nickTemp = $value;
			@nickArray = split '\W+', $nickTemp;
			foreach $nickTemp(@nickArray) {
				if($DEBUG){print "The name $name could be <$nickTemp> or ";}
			} 
		}
		#print "$key ==> $value\n";
		#print "$nickTemp\n";
	}
	#print "Value of nickTemp is $nickTemp\n";
}