my $x = [1,2,3,4,5];
my $y = [5,7,8,12,13];