foreach my $z ( %abc) { push @ab, "-$z"; } #### foreach my $z (keys %abc) { push @ab, "-$z"; }