my $value = '';
DBC (
    '$value=DBrecord1,subrecord,field',
    '$x=DBrecord1,subrecord,field2',
    'DBrecord1,subrecord,field3=55',
    'DBrecord2,subrecord,field=$value'
);
print "Copied $value from DBrecord1 to DBrecord2.\n";
print "Read $x from DBrecord1.\n";
print "Wrote 55 into DBrecord1.\n";

##</code><code>##

DBC (
    'DBrecord1,subrecord,field' => \$value,
    'DBrecord1,subrecord,field2' => \$x,
    55 => 'DBrecord1,subrecord,field3',
    $value => 'DBrecord2,subrecord,field'
);