#!/usr/bin/perl -w
use strict;

my @list = (3, 5, 2, 9);
print join('|',@list),'|';

#prints: 3|5|2|9|