D:\junk>perl xl.pl
Garry--> Sports

Jasen--> Sports


Can't call method "value" on an undefined value at xl.pl line 55.