sub getArrayIndex
# --------------------------------------------------------------
# When given a scalar and an array, this either returns the 
# of the scalar in the array or -1 (not found).
# --------------------------------------------------------------
{
   my $value = shift;
   my @values = @_;
   my $result = -1;

   for ( my $index = 0; $index < @values; $index++ )
   {
      if ( $value eq $values[ $index ] )
      { 
         $result = $index;
         last;
      }
   }
   return $result;
}