sub get_country {
    my( $card ) = @_;
    my $tmp= $card->country;
    return "" if ! defined $tmp || $tmp eq "" || $tmp eq 'gbr';
    return uc "[$tmp]"
}

my $country = get_country( $card );