my %subs = ( one => \&subOne,
             two => \&subTwo,
             ...
             ten => \&subTen,
           );

if ( exists $subs{$var} )
{
    &{$subs{$var}};
}
else
{
    die "Invalid \$var";
}