Select Code to Download

#!/usr/bin/perl -w

...
    print "$row->[$_] " for (1, 2, 3, 5, 9, 10, 38, 126);
    print "\n";
}

print "$row->[$_] " for @indices;