foreach my $infraction (@infractions) {
  warn "$infraction, that's a paddlin'.\n";
}