open(FILE, $name) or die "orrible death $!";
my @data = sort (<FILE>);