Use of uninitialized value $_ in pattern match (m//) at gpu.pl line 8