$sth = $dbh->prepare("MY SQL QUERY");
$sth->execute();

while (my $rad = $sth->fetchrow_hashref())
{
    $a_variable = $rad->{'Some_column'};
}

$sth->finish();


##</code><code>##

&DoSomeTreatment($sth???);