#!/usr/bin/perl -w

use strict;

my @aoa = get_data;

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