G'day Bod,

"But I especially do not like the conditional subroutine calls with magic numbers in the statement modifiers."

As far as the magic numbers are concerned, you can associate them with meaningful names; however, I really wanted to comment on the "conditional subroutine calls". Consider using a despatch table. Here's a rough example.

my %handler_for = (
    card1name => \&card_call_center,
    card2name => \&card_price_data,
    ...
);
...
while (my $card = ...) {
    $handler_for{$card}->();
}
[download]