#!/usr/bin/perl

use strict;
use warnings;

use Conditions;

my (@rapamycin, @heat_shock, $rapamycin_and_heat_shock,
    $rapamycin_not_heat_shock, $heat_shock_not_rapamycin);

@rapamycin = ("g1", "g2", "g4");
@heat_shock = ("g2", "g3", "g4");

print("rapamycin_and_heat_shock is a reference to ", ref($rapamycin_and_heat_shock),
	 "\n");

($rapamycin_and_heat_shock,
 $rapamycin_not_heat_shock, $heat_shock_not_rapamycin) = 
    condition_compare(\@rapamycin, \@heat_shock);


# use the ref function to check what a scalar variable is a reference to.
print("rapamycin_and_heat_shock is a reference to ", ref($rapamycin_and_heat_shock),
	 "\n");



