foreach (@array) {           # means foreach $_ (@array) {
  next unless /^\/:swiss\|/; # means next unless $_ =~ /^\/:swiss\|/;
  print;                     # means print $_;
}