my $cards = $dbh->prepare("SELECT Card_idCard FROM CardList WHERE User_idUser = $user_number AND visible = 1 ORDER BY metric");
$cards->execute();
while (my $card = $cards->fetchrow_array) {
	card_call_center()	if $card == 1;
	card_price_data()	if $card == 2;
	card_occupancy()	if $card == 3;
	#  etc  etc
}

# ...

sub card_call_center {
	# Collect data
	# from systems
        my $vars = {
             'foo'  =>  bar,
             'some' =>  data,
        };
	$template->process('card_call_center.tt', $vars);
}