#!/usr/bin/perl

use strict;
use warnings;

my @users = qw/ alice bob carl /;

my @elements;
push(@elements,'$_');
push(@elements,'text');

my @list;

@list = map { join('|',@elements) } @users;

print "@list" . "\n";
[download]