Solange deine Millisekunden weniger als einen Monat ergeben, kannst du die Standardfunktion
gmtime für deinen Zweck missbrauchen:
my (undef, $mins, $hours, $days) = gmtime($array[8]/1000);
$days--;
printf "%02d:%02d:%02d\n", $days, $hours, $mins;
Das Dekrementieren von $days ist hier erforderlich, weil bei
gmtime der erste Tag im Monat die Nr. 1 hat.
Gruß
GUIfreund