my $key= "$a-$b" . "_$c";
my $key= join '', $a, '-', $b, '_', $c;
# or
my $key= join '', "$a-$b", "_$c";