<% my %opt = @_; foreach my $opt (qw( county state country prefix onchange disabled )) { $opt{$_} = '' unless exists($opt{$_}) && defined($opt{$_}); } %> > <% tie my %states, 'Tie::IxHash', states_hash( $opt{'country'} ); %> <% foreach my $state ( keys %states ) { %> ><%= $states{$state} || '(n/a)' %> <% } %>