foreach my $key