my %varlengths = (
    'that' => sub(){ 2 }, 
    'theother' = sub{ $v{this}*2 },
}
...
  $readlength = $varlengths{$var}->(); # compute it