You're falling into the

  else {
      $card{'co'} = $la[0];
      shift @la;
  }
[download]

case, which clears @la by shifting out the single element that's it's holding (i.e., "OH"). To verify this, dump %card.

I suspect you mean to be using "elsif" instead of a squence of single "if" statements followed by an "if/else". As you have things set up, you'll hit that else case for any $response other than 1.