for my $i (0 .. 4) {
        print DATA $record->[$i] . " ";
    }
    print DATA "\n";