Yikes. I don't personally know what date_get() returns but it looks like you need to have a re-think. I can't possibly imagine there is a need to create that many arrays in one go. If date_get is returning an array then obviously @time_0 is the only array that will get populated as @time_0 will receive the entire array that is returned.

I'm kinda surprised you don't already know that as a perl programmer - it's one of the basic fundamentals of the language and the use of subroutines.

I would suggest reading here:

http://perldoc.perl.org/perlsub.html