Select Code to Download

my @allrows = @{ $sth->fetchrow_arrayref() }; # Expand ref, to simplif
+y access

my $first_author        = $allrows[0][0]; 
my $second_author       = $allrows[1][0];
my $first_title         = $allrows[0][1];

$language   = $row[2];   # Correct
$language   = @$row[2];  # wrong (at least in perl ver 5)