my @tokens = (tokens here);

while ($line =<>){
	chomp($line);
	die "$line is not a valid token" unless findone { m/^$line/ } @tokens;
}