sub change{
     my %A = @_;