Use a single regex and the | operator.

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

Note: I'm grouping using (?: ) rather than plain ( ) because its more efficient when you don't want the contents of the group.

PS: are you sure you don't want $data{$_} instead of $_ in either the compare or the print?
PPS: If you want to use $data{$_} in both the compare and the print then you should use values %data instead.

Dingus

---

Enter any 47-digit prime number to continue.