Select Code to Download

my %dispatch = (
...
    $total += 1;
    return $total;
}

my $total = 10;
...
$total    = $dispatch{'k5'}->($total);

print $total, "\n";