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