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