Help for this page
foreach(@suffix) { ... $v{$mn}{$sd}{$sf} = $_ ; } ....
while ($foo = <DATA>) { $v{$mn}{$sd}{$sf} = $foo; }