my @AoH=( {secID=>'SZ0001', date=>20090201, dataentry=>1, # dataentry is start address in data file '20090201.bin' filename=>'20090201.bin'} {secID=>'SZ0002', date=>'20090201' dataentry=>2, filename=>'20090201.bin'} {secID=>'SZ0001', date=>'20090202' dataentry=>1, filename=>'20090202.bin'} {secID=>'SZ0002', date=>'20090202' dataentry=>2, filename=>'20090202.bin'} )