Select Code to Download

foreach my $row (@results)
{
   print "$row->[0]  $row->[1]\n";
}

#!/usr/bin/perl

...
  ["chpt25_4", "sent. 47", "carol", "nsubj", "plants", "protect"],
  ["chpt54_1", "sent. 1", "greg", "nsubj", "uticle", "protect"],
]