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);
}