在信号处理函数(Perl)中从main ::更新数组

#!/usr/bin/perl
use strict;
use warnings;
use Signal qw(trap);

my @array = (1, 2, 3);

# 定义信号处理函数
sub signal_handler {
    my $sig = shift;
    print "Caught signal $sig\n";
    update_array();
}

# 更新数组的函数
sub update_array {
    push @array, 4;
}

# 设置信号处理函数
trap 'INT', \&signal_handler;

# 主循环
while (1) {
    print "Array: @array\n";
    sleep 1;
}