sub function1 {
    my ($arg1, $arg2) = @_;
    $arg1 = "" unless defined $arg1;
}