Select Code to Download

for (int i=0; i < SomeValue; i++)
{
...
            break;
    }
}

my %CaseToMethod = (
    FIRST_CASE => 'FirstMethod',
...
    my $method = $CaseToMethod($some_param->GetID);
    $SomeArray[$i]{value} = $some_param->$method;
}