{
    my @card_map = qw(zero one two three four five six seven eight nine);

    sub card {
        my ($n, $pre) = map { $_< 0 ? (-$_, 'minus ') : ($_, '') } shift;
        $pre . ($card_map[$n] // $n);
    }
}

##</code><code>##

sub card {
    state @card_map = qw(zero one two three four five six seven eight nine);
    my ($n, $pre) = map { $_< 0 ? (-$_, 'minus ') : ($_, '') } shift;
    $pre . ($card_map[$n] // $n);
}

##</code><code>##

C:\temp>perl kg.pl
Initialization of state variables in list context currently forbidden at kg.pl l
ine 10, near "qw(zero one two three four five six seven eight nine);"
Execution of kg.pl aborted due to compilation errors.