$ perl pattern_matching.pl 
Name "main::bob" used only once: possible typo at pattern_matching.pl line 50.
Use of uninitialized value $bob in print at pattern_matching.pl line 50.