Select Code to Download

my $sth = $dbh->prepare( qq|SELECT requests.id, requests.name, request
+s.requestor, 
        requestors.name, requestors.email FROM requests LEFT JOIN 
        requestors ON requests.requestor = requestor.id| );
my $list = $sth->fetchall_arrayref({});

my $sth = $dbh->prepare( 
        qq|SELECT request.id, request.daterequested, request.requestor
+, request.producer,
...
        @mapto{@mapping} = @$_;
        \%mapto;
        } @$arrayref;