Select Code to Download

my @val  = (\val_input,\val_input,\val_input,\val_input,\val_number,\v
+al_date,\val_number,\val_filter);
        
...
   ($sql{ $list[$i] }, $error) = $self->$code( $mand[$i], $self->query
+->param($list[$i] ));
   if ( $error-> { msg } ) { push @errors, ucfirst($list[$i])." $error
+->{ msg }" }
}

}
no strict 'refs';
$code = $val[$i];
}