#!/usr/bin/perl
use strict;
use warnings;

package Mine;
our @array = qw(1 2 3);

package main;

print join "x", @Mine::array;