opendir(SPR , "/apps/inst1/metrica/TechnologyPacks/ON-SITE/Nokia_S11.5/reportspr/") or die "$!";
while ( defined ( $file_name = readdir(SPR) ) ) {
	next if ( -d $file_name ); # removing . and ..
	open ( FH , "/apps/inst1/metrica/TechnologyPacks/ON-SITE/Nokia_S11.5/reportspr/$file_name" ) or die "$!";
	$spr_hash{$file_name} = [];
	@$spr_hash{$file_name} = <FH>;
}

print Dumper [ %spr_hash ];

##</code><code>##

$VAR1 = [
          'rep_vnz_gprs_performance_report_daily_spr.sql',
          [],
          'rep_vnz_cchnwpossumreport2_spr.sql',
          [],
          'rep_vnz_gprs_tbf_report_bh_spr.sql',
          [],
          'rep_vfnz_weeklytrxblockingreport_spr.sql',
          [],
          'rep_vnz_gprs_perf_report_daily_enhanced_spr.sql',
          [],