...in the common initialisation code...
our $zip;
sub zip_init {
  $zip = $zip_server->get_zip_codes() unless $zip;
}

...at every use...
zip_init();
print "selectbox-header";
for (@$zip) {
   print "selectbox line";
}
print "selectbox-end";