Use of uninitialized value $x in concatenation (.) or string at script.pl line 4.