Help for this page
foreach my $z ( %abc) { push @ab, "-$z"; }
foreach my $z (keys %abc) { push @ab, "-$z"; }