use constant COMMA => ','; ... my $result = join COMMA => @list; # should be: my $result = join COMMA, @list;