There are two reasons for that error:

• You are splitting on "\|\|", but your string is separated by spaces. It should be split /\s+/,$db{$_}
• You declared $exposure but you are using $exposures

Are you using strict?