我写了一个脚本，这是第一次按我的意愿工作：PI 将在下面提供我的脚本。我唯一想做但没有成功的事情就是只打印输出的最后一个值。
use strict;
use warnings;
use feature 'say';
my $filename = '/home/Desktop/my_scripts/coordinates_based';
my $p;
my $i;
my $mikos = 0;
my $sum = 0;
my $count = 1;
my $mikos_thetika = 0;
my $mikos_arnitika = 0;
my $k = 1;
my @table = ();
my $final = 0;
my $neg = 0;
my $pos = 0;
my $size;
my $last_value = 0;
open(FH, '<', $filename) or die $!;
while (<FH>) {
my ($n, $p, $a, $b) = split '\s+'; …我正在尝试操作一个文件，可以说：
76ers23 Philadelphia 76ers announced today that
76ers24 Lakers announced today
76ers25 blazers plays today
76ers26 celics announced today that
76ers27 Bonston has Day off
76ers28 Philadelphia 76ers announced today that
76ers29 the blazzers announced today that
76ers30 76ers Training day
76ers31 Philadelphia 76ers has a day off today
76ers32 Philadelphia 76ers humiliate Lakers
76ers33 celics announced today that
我想从第二列中删除包含术语 76ers 的所有条目，以获得：
76ers24 Lakers announced today
76ers25 blazers plays today
76ers26 celics announced today that
76ers27 Bonston has Day off …