Device::BCM2835::gpio_fsel(...);

##</code><code>##

*gpio_fsel = \&Device::BCM2835::gpio_fsel;

##</code><code>##

for my $sub (qw{gpio_fsel gpio_set gpio_clr}) {
    no strict 'refs';
    *$sub = \&{"Device::BCM2835::$sub"};
}

##</code><code>##

gpio_fsel(...);
gpio_set(...);
gpio_clr(...);