Select Code to Download

my $domain_ip = (grep {$_->[0] == $domainid} @$table)[0]->[2];

#!/usr/bin/perl -wT
use strict;
...

=OUTPUT
id=8 fieldindex=1 => animal=elephants