À§ ¼Ò½º Äڵ带 º¸¸é sub zipcode_address ¼­ºê·çƾÀ¸·Î ¾Æ¹«·± °ªµµ ³Ñ°ÜÁÖÁö ¾ÊÀ» °æ¿ì, 0¸¸ ¸®ÅϵǴ °ÍÀÌ ¾Æ´Ï°í, 0°ú DB ÆÄÀÏÀÌ ¾ø½À´Ï´Ù. ¶ó´Â µ¥ÀÌÅÍ°¡ À͸í Çؽ¬ ·¹ÆÛ·±½º·Î ³Ñ°ÜÁý´Ï´Ù.
return {'0', 'DB ÆÄÀÏÀÌ ¾ø½À´Ï´Ù.'}; À» return ('0', 'DB ÆÄÀÏÀÌ ¾ø½À´Ï´Ù.'); ½ÄÀ¸·Î ³Ñ°åÀ» °æ¿ì´Â ¿¹»óÇϽŠ´ë·Î 0¸¸ ³Ñ¾î°¡°ÚÁö¿ä. {}¸¦ ÁÖÀÇÇؼ­ º¸½Ã¸é µÉ °ÍÀÔ´Ï´Ù.

for (sort keys %$ref) {
if ($_ == 0) {
print $$ref{$_};

À§ ÄÚµå´Â $ref Çؽ¬ ·¹ÆÛ·±½ºÀÇ Å°¸¦ Á¤·ÄÇÑ ´ÙÀ½, ÇϳªÀÇ Å°°¡ 0À̸é 0À» Å°·ÎÇؼ­ ÇØ´ç °ªÀ» Ãâ·ÂÇÏ´Â °ÍÀÔ´Ï´Ù.
°¡·É, $ref->{ '0' => 'ÀԷ°ªÀÌ ¾ø½À´Ï´Ù.' } ·Î µÇ¾î ÀÖ´Ù°í °¡Á¤ÇÑ´Ù¸é ÀÌÇØ°¡ °¡½Ã°ÚÁö¿ä. 0 ÀÌ¸é ¿¡·¯ ³»¿ëÀ» Ãâ·ÂÇϱâ À§ÇÑ ÄÚµåÀε¥, ´ÙÀ½°ú °°ÀÌ Çصµ °á°ú´Â °°½À´Ï´Ù.
foreach (sort keys %$ref) {
print $ref->{$_} unless $_; #¶Ç´Â if $_ or print $ref->{$_};
}

;-)