sub test{
    my ($next,@neu) = @_;
    print $next;
    for my $x(@neu){
        print $x,"\n";
    }
}