请问这个perl为什么会输出130这个数字

use autodie;
use strict;
my @AllData=qw/127 130 288 398 510 515 520 522 523 528/;my $pline=0;
my $pflag=1;
my $flag=1;
foreach my $line (@AllData)
{
if ($line-$pline > 10)
{
$flag=1;
if ($pflag=1)
{
print "$pline\n";
} }
else
{
$flag=0;
} $pline=$line;
$pflag=$flag;
}

就是想找出与左右两边差距都大于10的数据，但是不知道为什么会输出130这个数字，我想了半天都没想出来，希望有人能帮帮我

$pflag = 1是赋值，== 才对