Select Code to Download

my @non_unique = qw/carpet car pet/; # fails on 'car' and 'pet'
my @non_unique = ("bob and sue","bob"); # fails on space seperated wor
+ds

#!/usr/local/bin/perl -w
use strict;
...
$^ = "SortedWordsAndCountHeader";
$~ = "SortedWordsAndCount";
write for @unique;

Words               Count
bob and sue             1
...
carpet                  2
bob                     1
car                     1