Variable "$x" will not stay shared at 1.pl line 9.