my %ab = map { '-' .$_ => $abc{$_} }  keys %abc;