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