for my $k (keys %{$self->{SQL}}) {
     ...;
     $self->{"f$k"} = sub {
                             ...;
                             $self->{$k}->execute(@_);
                             while (my $dbrow = $self->{$k}->fetchrow_hashref()) {
                                 ...;
                                 }   
                             return ...;
                             };  
}