test>perl spiel1.pl
Computer spielt mit 15 11 2 6
COMPUTER setzt auf 32
+-------+-------+-------+-------+-------+-------+
|       |       |       |       |       |       |
|  28   |  22   |  15   |  6    |  33   |  1    |
|       |       |       |       |       |       |
+-------+-------+-------+-------+-------+-------+
|       |       |       |       |       |       |
|  7    |  10   |  32C  |  27   |  11   |  14   |
|       |       |       |       |       |       |
+-------+-------+-------+-------+-------+-------+
|       |       |       |       |       |       |
|  23   |  18   |  5    |  31   |  9    |  30   |
|       |       |       |       |       |       |
+-------+-------+-------+-------+-------+-------+
|       |       |       |       |       |       |
|  4    |  36   |  29   |  20   |  16   |  24   |
|       |       |       |       |       |       |
+-------+-------+-------+-------+-------+-------+
|       |       |       |       |       |       |
|  13   |  25   |  17   |  3    |  35   |  19   |
|       |       |       |       |       |       |
+-------+-------+-------+-------+-------+-------+
|       |       |       |       |       |       |
|  34   |  2    |  26   |  12   |  21   |  8    |
|       |       |       |       |       |       |
+-------+-------+-------+-------+-------+-------+

Bitte eine Zahl aus 3 8 1 4 eingeben
3
Sie setzen 3 bei Karten 3 8 1 4
Bestätigen mit J sonst eine Taste
j
Can't use an undefined value as an ARRAY reference at fun_sub.pl line 155, <STDI
N> line 2.

test>