$ perl pm_11103133.pl <xy.data
Hello, I'm 18

Use of uninitialized value in numeric gt (>) at pm_11103133.pl line 13, <STDIN> line 4.