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