foreach my $row (MyCDBI::Class->retrieve_all) {
    if ($row->column1 =~ m/AR/i ) {
        $row->column2( 'AR' );
    }

    $row->update;
}