sub a {
    my ($dbhandle) = @_;
    ##does soemthing with dbhandle
}
sub b {
    ##doesn't need dbhandle
}
sub c {
    my ($dbhandle) = @_;
    ##does soemthing with dbhandle
}