Actually, you don't need to:

      push @array,$_ while <FH>;

'push' takes a list as its second parameter, so:

      push @array, <FH>;

for each file works fine.