$ perl -Mstrict -Mwarnings -E '
my $x = join("expression", "list");
say $x;
my $y = "list";
say $y;
'
list
list

##</code><code>##

print 'Tabbed items: ', join("\t", @items), "\n";

##</code><code>##

sub process_record
{
    my $array_ref = shift;
    my $record = join q[], @{$array_ref};
    ...