perl的函数原型例子

[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