[root@rwsoda203db1 perl_tidb]# cat p.pl
#!/usr/bin/perl
use strict "subs";
use strict;
use v5.16;
use warnings;
my @a = (1,2,3,4,5);
sub push_item(+$){
my $local_a = shift @_;
my $local_item = shift @_;
push @$local_a,$local_item;
my $item_list = join(":",@$local_a);
print @$local_a,"\n";
print "$item_list \n";
}
push_item(@a ,6);
[root@rwsoda203db1 perl_tidb]# ./p.pl
123456
1:2:3:4:5:6
