my @rv = $dbh -> selectall_arrayref( $commands, undef, ( $query ) );

##</code><code>##

$bar=1;
@foo=$bar;
print @foo,"\n";
$bar=["this","is","an","arrayref"];
@foo=$bar;
print @foo,"\n";
@foo=@{$bar};
print @foo,"\n";
$bar=&baz;
@foo=@{$bar};
print @foo,"\n";
@foo=@{&baz};
print @foo,"\n";
sub baz {
    return["this","is","also","an","arrayref"];
}