my $midi_outdev_ref = \$midi_outdev;
...
    -variable => $midi_outdev_ref,
    ...
    sub { my $midi_indev = $$midi_outdev_ref; ... },
    ...