@pq: Danke - hab's sofort ausprobiert
..
use Data::Dumper;
use Devel::Peek;
..
print $d->Dump;
Dump($ar[0]);
Dump($ar[1]);
Dump($ar[2]);
und erhalte:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
SV = PVMG(0x1821a9c) at 0x18cca44
REFCNT = 2
FLAGS = (POK,pIOK,pPOK)
IV = 1
NV = 0
PV = 0x18d6974 "1"\0
CUR = 1
LEN = 4
SV = PVNV(0x18b7464) at 0x225284
REFCNT = 2
FLAGS = (NOK,POK,pNOK,pPOK)
IV = 0
NV = 1
PV = 0x18d6bcc "1"\0
CUR = 1
LEN = 36
SV = IV(0x18269f0) at 0x1854ec4
REFCNT = 2
FLAGS = (IOK,pIOK)
IV = 1
also: Es sieht nicht nur aus wie String, es IST String.