my @array;
while (<IN>) {
    push @array, [extract_data_from_line $_];
}