sub test {
    my $head = "abc";
    my $tail = "def";
    my $full = "${head}_${tail}";
    print $full, "/n";
}

my $full = "$head_$tail";