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

##</code><code>##

print FILE join("|", map { sassify($_) } @$_), "\n" for @rowrefs;

##</code><code>##

for ($in) {
  s/this/that/;
  s/here/there/;
  etc.
}