for my $record (@records) {
    for my $line (@$record) {
        ....
    }
}