while (<>) {
   # parse line
   my ($date, $state) = ...
   $tornadoes{$state}{$date}++;
}
foreach my $state (1..50) {
	print "State = $state,   tronadoes = ", scalar keys %{$tornadoes{$state}}, "\n";
}