sub callmeth($$){
    $arg_method=shift;
    @arg_meth=shift;
}