$ perl -wle 'my @card_map = qw(zero one two three); print $card_map[-2]'
two