Test mit Mac :
machintosh:diverse kimmy$ echo -e "\n1\n2,2\n3,3,3" | perl AoA.pl
Use of uninitialized value in concatenation (.) or string at AoA.pl line 15, <> line 4.