for (keys %{$self->{SQL}}) {
    $self->{$_} = $self->{DBO}->prepare($self->{SQL}->{$_});
    $self->{"f$_"} = sub {
                            my $self = shift;
                            my @res;
                            $self->{$_}->execute(@_);
                            while (my $dbrow = $self->{$_}->fetchrow_hashref()) {
                                push @res, \$dbrow;
                                }   
                            return \@res;
                            };  
}