my (@network_data, @location_data) = get_data();

after this assignment @location_data is empty. try references:

my ($network_data, $location_data) = get_data();
# loop over @$network_data for example
[download]

read perlref for details.