Select a phone number % foreach $p (@$phone_types) { <% $p |h%> (<% $cust_phones->$p |h %>) %} <%init> my %opt = @_; my $cust_num = $opt{'cust_num'}; my $phone_types = $opt{'phone_types'}; my $format = $opt{'format'}; my $cust_phones = qsearchs('cust_main', { 'custnum' => $cust_num }) or die 'unknown custnum' . $cust_num; my %phones_formatted = map { $_ => format_phone_number($cust_phones->$_, $format) } @$phone_types; sub format_phone_number { my ($n, $f) = @_; if ($f eq 'xxxxxxxxxx') { $n =~ s/-//g; } return $n; }