sub convert_foo_name_to_csv_name {
    my $name = shift;
    $name =~ s/(.foo)?$/.csv/c;

    return $name;
}