The array @PER_Data; is outside of the while loop. This means that it is not going to be destroyed until the program ends. So the line

push @major_PER_Data, \@PER_Data;
[download]

you can fix this by either moving the declaration of @PER_DATA inside the while loop or by changing the above line to

push @major_PER_Data, [@PER_Data];
[download]

Hope this helps,
Ira,

"So... What do all these little arrows mean?"
~unknown