如何用 Perl 比較兩個陣列？

ssaa

有兩個陣列，每個都有兩欄（所以是 A1，B1 和 A2，B2），A 是座標，對映到一個 B 是 value，
請計算 B1 和 B2 之間的比例，如果他們相對映的A相同或相近。

#!/usr/bin/perl -w

my @data = qw( 1 3 );
my @data1 = qw( 2 10 );

$coor_diff_allow = 1;

if ( abs( $data[ 0 ] - $data1[ 0 ] ) <= $coor_diff_allow )
{
print "\nThe ratio of values is : ", $data[1]/$data1[1] ,"\n";
exit 1;
}
else
{
print "The coordination is not even close.\n";
exit 1;
}