my($quad_1, $quad_2, $quad_3, $quad_4) = 
  split /\./, $array[0];