use strict; use warnings; my @sites=( ["50049", "city1", "url1"], ["52556", "city2", "url2"], ["50219", "city3", "url3"] ); foreach my $tuple (@sites) { my ( $zip, $name, $url ) = @$tuple; ...; }