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


##</code><code>##

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