#!/usr/bin/perl -w
use strict;


my %valid = qw (crew 1 critical 1  wounded 1 killed 1);
while (<DATA>)
{

   print "testing: $_";
   chomp;
   my %hash = reverse(m/(\d+)\s+(\w+)/g);
   foreach my $key(keys %hash)
   {
      print "$key $hash{$key}\n";
   }
   my @invalid = grep {!$valid{$_}}keys %hash;
   print "invalid nouns: @invalid\n" if @invalid;
   print "\n";
}

# testing: beam 15 crew 5 wounded 2 critical to S.S.Kevorkian
# crew 15
# critical 2
# wounded 5
#
# testing: what a day:5 wounded 2 critical 20 crew
# critical 2
# crew 20
# wounded 5

# testing: 20 crew and 6 killed and 14 MIA
# crew 20
# killed 6
# MIA 14
# invalid nouns: MIA

__DATA__
beam 15 crew 5 wounded 2 critical to S.S.Kevorkian
what a day:5 wounded 2 critical 20 crew
20 crew and 6 killed and 14 MIA