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

##</code><code>##

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