foreach my $key_expal (%expal) {...