my $c = 4;
my $c1 =6;