foreach (keys %data)
{
  next if m/^aaa$/ || m/^\[/ || m/\// || m/and/;
  print "$_\n";
}