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

##</code><code>##

$array[0] == '25' and print "The first quadrant is 25\n";
$quad_1 = $array[0];
$quad_2 = $array[1];
$quad_3 = $array[2];
$quad_4 = $array[3]; 
$quad_1 == '25' and print "The first quadrant is still 25\n";