Use of uninitialized value $a in numeric gt (>) at main.pl line 16.