use feature 'unicode_strings';
  use open qw/:std :utf8/;
  ...
  # DBIx::Class:
  my($rs) = $schema -> resultset('Author');
  my($result);
  for (sort keys %$data)
  {
    $result = $rs -> create({name => $_, upper_name => uc $_});
  }