while ($foo = <DATA>) {
    $v{$mn}{$sd}{$sf} = $foo;
}