@val3=grep(/\d{1,2}$comparison/,@complex);

##</code><code>##

chop($val3[0]);
$val4=$val1[0]+24-$val3[0];

##</code><code>##

&Get_Calibrator_Filename();

##</code><code>##

$calib1=$_[0];
$comparison=$_[1];

##</code><code>##

$calib1 = shift or die "Missing first argument to sub GCF!\n";
$comparison = shift or die "Missing second argument to sub GCF!\n";

##</code><code>##

&Get_Calibrator_Filename("foo", "bar");

##</code><code>##

chop($val1[0]);chop($val2[0]);chop($val3[0]);