Almost perfect!
just need one final | to get output requested.

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

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

#prints: 3|5|2|9|
[download]