if ($var eq 'one') 
{ 
    &subOne; 
}
elsif ($var eq 'two') 
{ 
    &subTwo; 
}

...

elsif ($var eq 'ten') { 
    &subTen; 
}
else 
{
    die "Invalid \$var"; 
}