use warnings;
use strict;
#use warnings;

my %seen = ( );
my @uniq = ( );
my @list = "bob, bob, sue, sue";
my $item;
my $element;

print scalar(@list), "\n";

__END__

1