#!/usr/bin/perl -w use strict; my @a = (1, 2, 3, 4, 5); $" = "|"; print "@a";