use strict;
use warnings;
use Data::Dumper;

# your code for creating @array1 and @array2 goes here

print Dumper(\@array1);
print Dumper(\@array2);