waffle2k · April 6, 2010 14:40
diff --git a/sort_uniq.pl b/sort_uniq.pl
 #!/usr/bin/perl -w
 use strict;

 my @in = qw/foo bar Foo chum blatz grim nuuts/;

 my %h = map{ lc( $_ ), 1 } @in;

 print "$_\n"
        for sort keys %h;
	#!/usr/bin/perl -w
	use strict;

	my @in = qw/foo bar Foo chum blatz grim nuuts/;

	my %h = map{ lc( $_ ), 1 } @in;

	print "$_\n"
	for sort keys %h;