foreach my $rowref (@rowrefs) {
  my @sassified = map { sassify($_) } @$rowref;
  print FILE join("|", @sassified),"\n";
}