Help for this page
my @code_data = [ ['US','USA','USD'], ... use constant currency => 2; print $translator{USA}[currency]; print $translator{USD)[ccode];
# construct %translator as before, but only for unique keys for (@code_data) { push @{$translator{$_->[currency]}}, $_; }
www.com | www.net | www.org
No recent polls found