while ((my $key, my $value) = each(%csa_hash)) {....}