my $comments = $sth->fetchall_hashref([ qw(resource_id message) ]);
    my $test = $comments->{18};
    warn ref $test;
    my @test = values $test;
    warn Data::Dumper::Dumper(@tests);