Use of uninitialized value $tmp[0] in join or string at test.pl line 7.