Here is what you do, insert this

use Data::Dumper;
print Dumper(\@zip_dist);
#-------HERE IS THE PROBLEM---------#
[download]

Then, show us the output :)

How (Not) To Ask A Question