my %suffixes = ( 
    csv => 'txt', 
    xml => 'xml',
);

my $type = ...;
my $suffix = $suffixes{ $type };