Select Code to Download

#!/usr/bin/perl

...
foreach my $item (@$data) {
    print "item->[0]=".$item->[0]." ; item->[1]=".$item->[1]."\n";
}

package bug::myitem;

...
}

1;