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