#!/usr/bin/perl
use strict;

my @letters = qw(a a a b b b c c c);
my @word = qw(a a b b);
my $length = @letters;
my $wlength = @word;
			
			for (my $i = 0; $i < $length; $i++) {
				for (my $j = 0; $j < $wlength; $j++) {	
					if (($letters[$i]) eq ($word[$j])) {
						splice (@letters, $i, 1);
						splice (@word, $j, 1);
				} 
				}
			}  

print "@letters\n";