# This program takes a list of foo data files
my @foo_files = @ARGV;

for my $foo_file (@foo_files) {
    save_foo_file_as_csv( $foo_file );
}

sub save_foo_file_as_csv {
    my $foo_file = shift;

    my $csv_file = convert_foo_name_to_csv_name($foo_file);

    my $foo_data = read_foo_file( $foo_file );
    $foo_data = sanitize_data( $foo_data );

    write_as_csv( $csv_file, $foo_data );

    return;
}