# fetch data from sql
while (my $row = $res->fetchrow_hashref()) {
    my %rowdata;
    
    # $score is generated by some badass algoritms, and is an integer
    $rowdata{SCORE} = $score;

    $rowdata{ID} = $row->{id};
    $rowdata{TITLE} = $row->{title};
    
    push (@output, \%rowdata);
}