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