Name sub routine from data?

Is it possible to assign a sub routine a name from a variable?

Code:

---

sub $variable {something here}

---

If this can be done it would save me writing to a whole extra file every time I add something (which s what I'm doing at the moment). I already have the names in a tiny FFDB.

Any ideas?

Thanks

You can do so using globs:

Code:

---

my $variable = 'foo';
{
    no strict 'vars';
    *$variable = sub { print "Foo!\n"; };
}
foo();

---

I bet you don't really need to resort to it but here's an answer to the question.

update: Added no strict vars;

Thanks Sixtease, I'll give that a try.

I'm trying to keep things small in my blog code and this is for the categories stuff so if I don't have to do something extra, then all well and good.

Merry Christmas and Happy New Year