my( $author, $title, $results ) ;

while ( my($lineno, $row_ref) = each @$data) {
    $author = $row_ref->[0];
    $title = $row_ref->[1];
    $results->[$lineno]->[1] = $row_ref->[2];
}

say Dumper($results);


--output:--
$VAR1 = [
          [
            undef,
            'c'
          ],
          [
            undef,
            'zz'
          ]
        ];