while (<ARRAY_DATA>)    {
    $line = $_;
    chomp ($line);
    @array = ();
    @array = split (/\s+/, $line);


   # other stuff here

}