opendir ( SSPR , "/apps/inst1/metrica/TechnologyPacks/ON-SITE/summaryspr/") or die "$!";
while ( defined ( $file_name = readdir(SSPR) ) ) {
	next if ( -d $file_name ); # removing . and ..
	open ( FH , "/apps/inst1/metrica/TechnologyPacks/ON-SITE/summaryspr/$file_name" ) or die "$!";
	$sspr_hash{$file_name} = [];
	@{$sspr_hash{$file_name}} = <FH>;
	map { $_ =~ s/[\n\r]//g } @{$sspr_hash{$file_name}};
}