use strict;
use warnings;
my %abc = (
to => 'def',
from => 'ghi',
);
my @ab;
for ( keys %abc )
{
push @ab, "-$_";
}
print "$_\n" for @ab;
#Output
-to
-from
####
use strict;
use warnings;
my %abc = (
to => 'def',
from => 'ghi',
);
my @ab = map { "-$_" } keys %abc;
print "$_\n" for @ab;
####
my %ab = map { '-' .$_ => $abc{$_} } keys %abc;