Gentle folks,

Thanks for your prompt and interesting attention. However, the array in question is defined inside the loop. A bit more of the code would certainly help the explanation.

opendir THISDIR, ".";
while ($file = readdir THISDIR)
{
   if ($file =~ /csv$/i)
   {
      open(INPUT, "$file") or die "Could not open $file. \n";
      @array = <INPUT>; 
      ($tab) = ($file =~ /.*\.(T\w+)\./);  # Separate tab number from 
+file name
      $data{$tab} = [@array]; 
      close INPUT;
   }
}
[download]

This one seems to work. With the \@array structure each array is correct when established but is over written the next time through the loop. Ideas??

Many thanks.