wie stehen sie denn in den Arrays?
Benutze mal "Data::Dumper" und mach ein "print Dumper(\@CAPTIONS);" bzw. "print Dumper(\@PICS);"
Es kann ja sein, dass wirklich alles in einem Eintrag steht...