Rob Freiburger RobFreiburger

## facebook.pl
#!/usr/bin/perl
# Sorts CSVs alphabetically and formats

use strict;

my @csv = split(/,\s?/, join(' ', @ARGV));
@csv = sort @csv;
for (my $i = 0; $i < $#csv; $i++) {
	$csv[$i] .= ",";
}
	#!/usr/bin/perl
	# Sorts CSVs alphabetically and formats

	use strict;

	my @csv = split(/,\s?/, join(' ', @ARGV));
	@csv = sort @csv;
	for (my $i = 0; $i < $#csv; $i++) {
	$csv[$i] .= ",";
	}