my $aa=1,$bb=1,$cc=1,$dd=1;