mmh... push (@files,@filesA);? What occurs if you try  print @files;?

while (@files){
 chomp; 
 push @filesA, $_;
}
[download]