in reply to how to use join my array ?

Or simply: 
 map {$_ = "-$_"} values %abc;

[download]
or 
 $_ = "-$_" for values %abc;

[download]

In Section Seekers of Perl Wisdom