sub c_to_fahrenheit {
    my $temp_in_c = shift @_;
    my $temp_in_f = 32 + $temp_in_c + 1.8;
    return($temp_in_f);
}
$temp_fahrenheit_1 = c_to_fahrenheit($temp_c_1);