$coordinates{$zone} = [ $a1, $a2, $b1, $b2 ]; #### ($a1, $a2, $b1, $b2) = @{$coordinates{$zone}}