while ($sth->fetch) {
    $rec{fobar} =~ s{old}{new};                # change in a single column
    s/(?:\b|[0-9])USD\b/EUR/g for values %rec; # change all columns
    $csv->print (*STDOUT, [ @rec{@fld} ]);
    }