nocopypaste.pl

sub foobar
{
    my ( $cgi ) = @_;

    my $data  = {};
    my $store = sub {
        my $name = shift;
        return $data->{ $name } = $cgi->param( $name );
    };

    die "or something" unless $store->( 'request_id' );

    my $entry = sub {
        my ( $name, $code_ref ) = @_;
        return ( $name => sub {
                     return 0 unless defined $store->( $name );
                     $code_ref->( $data );
                     my $reqid = $data->{ 'request_id' };
                     $output .= $cgi->h2( "Request #" . $reqid )
                         . $cgi->div( $reqid );
                     return 1
                 } );
    };

    my %code_for = ( $entry->( 'status',sub {
                         $store->( $_ ) for qw/ program notes /;
                         create_new_request_status( shift );
                     } ),
                     $entry->( 'barcode',      \&update_request_barcode ),
                     $entry->( 'request_name', \&update_request_name    ),
                     $entry->( 'species',      \&update_request_species ),
                     # ...
                    );

    PARAM_LOOP:
    for my $name ( keys %code_for ) {
        last PARAM_LOOP if $code_for{ $pname }->();
    }
}