##  failure
#my %cl = %$var1;
#my $cl1 = $cl{'amount'};
#say "cl 1 is $cl1";