Help for this page
$coordinates{$zone} = [ $a1, $a2, $b1, $b2 ];
($a1, $a2, $b1, $b2) = @{$coordinates{$zone}}