my $member = "dump_$key";
        my $name = "name_$key";
        
        $name = $self->can($name) ? $self->$name () . ' ' : '';
        ...
        if ($self->can($member)) {
            $self->$member ($pos, $len);