Select Code to Download

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

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