in reply to how to use join my array ?

 while( my($key, $value) = each(%abc)){
    $abc{$key}="-$value";
}

[download]

In Section Seekers of Perl Wisdom