Select Code to Download

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;