#!/usr/bin/perl -w
use strict;

my @r = ('j','r','t','string value','numeric');
my @x = ('x','r','t','string value','numeric');

print join('',@r),"  :array 1\n";
print join('',@x),"  :array 2\n";
print "\n";

print "arrays match\n" if ((join('',@r))eq(join('',@x)));