sub testing(){
    foreach(@_){
        print $_;
    }
}

my $subref=\&testing(1,2,3,4,6);
print Dumper $subref;
my $subref=\&testing;