my $ref_to_list_of_strings = shift @_;
my @list_of_strings        = @{ $ref_to_list_of_strings };
my $empty_string           = q[];
my $record                 = join($empty_string, @list_of_strings);