Help for this page
# sort by zip-code ... lc((split /\|\|/ => $hash{$a})[1]) cmp lc((split /\|\|/ => $hash{$ +b})[1]) } keys %hash;