my ($left, $right) = qw(abc def);
print "$left_$right\n";