#!/usr/bin/perl use XSigils; $\="\n"; €arr=[1..3]; push €arr,4,5; print @€arr;