#!/usr/bin/perl

open(FIL,"prob22data.txt");
$l = <FIL>;
close(FIL);

$l =~ s/\"//g;
@n = split(',',$l);

@ns = sort {$a cmp $b} @n; #sort the names by alphabetical order

open(FIL,">prob22data2.txt");
foreach $_ (@ns) {
  print FIL $_ . "\n";
}
close(FIL);