foreach my $row (@data) {
   print "$row->[$column{title}] $row->[$column{first}] $row->[$column{last}]\n";
}