Help for this page
use strict; use warnings; ... -to -from
use strict; use warnings; ... my @ab = map { "-$_" } keys %abc; print "$_\n" for @ab;
my %ab = map { '-' .$_ => $abc{$_} } keys %abc;