sub inputPin
{
  my $s = sprintf("Device::BCM2835::RPI_V2_GPIO_P1_%02d", $_[0]);
  return (\&$s)->();
}

inputPin(7);
inputPin(6);
etc..