scratchpad loris <code> #!/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"; </code>