my $hidden_fields;
     
$hidden_fields .= $cgi->hidden( $_, $in{$_} ) for ( grep { /dvdX/ } keys %in );