my $x= 3;
my $y= 3;
my $z= "$y";