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