my $d = $a . '-' . $b . '_' . $c;