#!/usr/bin/perl -w

my %rr = ();

my $iin = 0;
foreach my $ff (sort glob "data/stdmissions/*") {
	next if($ff =~ /index/);
	my $uu = $file;
	open my $ii, $ff or die $!;
		my $cc = join "", <$ii>;
	close $ii;
	$rr{$iin++} = eval("{ $cc }");
}

%rr;
