#!/usr/bin/perl

use warnings;
use strict 'refs';
use Data::Dumper;

my(@array1) = (1, 2, 3, 4);
my(@array2) = ('a', 'b', 'c', 'd', 'e', 'f');