It's a bit hard to read with all the commas. It's probably better to do: 

```perl
(
   'A' => 'A,0',
   '0' => '0',
   'AB' => 'AB,A,B,0',
   'B' => 'B,0',
);
```