open (DB, "<".$codes_db) || die ("Can't open $codes_db");
while (<DB>) { 
&cleanData($_); # this removes white space
push(@buffer, $_) unless ($_ eq $code); }
close (DB) || die ("Can't close $codes_db");