Use of uninitialized value $row in join or string at test3.pl line 80.