Du arbeitest mit z.B.
$picOptions->[9]
das ist die Dereferenzierung des Feldes 9 aus dem Array @$picOptions, also muß zwangsläufig das erste Feld des Arrays @_ die Referenz auf ein Array enthalten (jedenfalls so wie Du das geschrieben hast).

Was wird denn an die Subroutine übergeben?
Welche Werte befinden sich in @_

Die Variablen:

$shipRolle
$shipMaxi
$shipKompakt
$shipStd

sind nicht deklariert und haben auch keinen Wert; sind das globale Variablen?

@bony: benutzt Du use strict; und use warnings; ??

Normalerweise wird aber ein Fehler ausgegeben, wenn man eine "Nichtreferenz" versucht zu dereferenzieren (wenn man use strict; verwendet!)...
so ungefähr:

Quote

Can't use string ("Hallo") as an ARRAY ref while "strict refs" in use at -e line 1.

Ja, ich verwende use strict;.

$picOptions ist die Referenz auf ein 12-stelliges Array, das verschiedene Zahlen enthält (bzw. undef).
An die Sub wird nur diese Referenz übergeben.

Die anderen Variablen sind globale Variablen (Konstanten).\n\n

<!--EDIT|bony|1084180090-->

Es gibt eine lose Konvention, globale Variablen mit einem Großbuchstaben anfangen zu lassen. Und wenn es Konstanten sind, use constant. ;-)

@bony
hier:
verwendest Du $picOptions->[ 10 ] doppelt ...

@ Crian
Danke für die Info. Schon wieder was gelernt. Ja, ich weiß, bei mir steht noch ein dickes Buch "Objektorientiert programmieren mit Perl" im Regal, das ich unbedingt mal lesen sollte ;-). Da das alles aber nur ein mehr oder weniger aus der Not geborenes Hobby ist und die Zeit...

@ all:
Einen Teil des Problems habe ich möglicherweise gefunden:
Die Variablen $shippingCosts und $shippingCostsCD werden mit "undef" initialisiert

Weiter unten werden die Werte der Variablen mit dem >-Oberator verglichen

Der Vergleich von undef-Werten scheint wohl ein Problem zu sein.

Wenn ich die Variablen mit "0" initialisiere, tritt der Fehler schon seltener auf. Bei manchen "Konstellationen" des Arrays @picOptions tritt der Fehler noch auf. Möglicherweise ist auch hier der Fehler bei den Vergleichsoperationen in calculateShipping() zu suchen, muss ich noch austesten.

das wird den Fehler aber nicht hervorrufen, denn in der Aussagenlogik gilt nach dem Idempotenzgesetz a oder a = a...

Wenn ein Feld des Arrays nicht vorhanden ist dann tritt der Fehler bei jedem Vergleichsversuch ganz zwangsläufig auf. :)
Vergleichsoperatoren funktionieren nicht wenn sie auf 'undef' angewendet werden.\n\n

<!--EDIT|Dieter|1084188668-->

Besten Dank für eure Hilfe. Wenn ich alle entsprechenden Variablen und Felder des Arrays mit 0 initialisiere, funktioniert (fast) alles.

Aber warum hängt sich Perl eigentlich erst beim zweiten Durchlauf auf? Solange ich die Vergleiche nur ein mal während des Programmdurchlaufes aufgerufen habe, hat ja alles geklappt (???).