say "Hello @{[ join(', ', @names) ]} how are you?";

##</code><code>##

use strict;
use warnings;

use 5.010;

my @names = qw( ikegami );

say "Hello @{[ join(', ', @names) ]} how are you?";

my $user_input = q{Hello @{[ join(', ', @names) ]} how are you?};
say $user_input;

##</code><code>##

Hello ikegami how are you?
Hello @{[ join(', ', @names) ]} how are you?