仔细查看下列Perl程序，请选出正确的输出结果。 sub a

仔细查看下列Perl程序，请选出正确的输出结果。

sub all{

   my $all;

   foreach (@_){

       $all += $_;

   }

   $all;

}

sub pj_1{

   if(@_==0){

      return

   }

   my $count = @_;

   my $all= all(@_);

   $all/$count;

}

sub pj_2{

   my $pj= pj_1(@_);

   my @list;

   foreach my $ele(@_) {

       if($ele>$pj){

           push @list,$ele;

       }

   }

   @list;

}

$a = pj_2(1..7);

print "$a";