my $numerator;
      my $denominator;

##</code><code>##

         if ($indicator eq "SH"){
    $numerator = $last_element;
      }

##</code><code>##

      elsif ($indicator eq "SL"){
    $denominator = $last_element;
      }

##</code><code>##

      else {
    print "\nError: There has been an unexpected string within the sec
+ond to last element of the array\n";
      }