my $suffix = given ($type) {
  when ("csv") { "txt" }
  when ("xml") { "xml" }
};