Frage zu subroutinen

[Mark]

hi,

alle subroutinen fangen mit meinShop an.
jetzt möcht ich aber nicht die subroutinen einzeln aufrufen.
irgendwie kann ich mich nicht so richtig ausdrücken

hier ist ein beispiel:

@var = ("Warenkorb","Rechnung");  auszug aus datenbank

+--------------------------------------+
|if($var[0] eq "Warenkorb") {          |
|meinShopWarenkorb();                  |
|}                                     |
|                                      | so möchte ich es nicht machen
|if($var[1] eq "Rechnung") {           |
|meinShopRechnung();                   |
|}                                     |
+--------------------------------------+

------------------
foreach(@var) {
meinShop$_();         so wäre es mir lieber kann man das irgendwie machen
}
------------------

sub meinShopWarenkorb {
print "";
}

sub meinShopRechnung {
print "";
}

danke im voraus