# 1
    $x = 'a' . $y . $z->[1];

    # 2
    $x = join q(), scalar(chr 97), $y, (@$z)[1], '';