while ( <DATA> ) {
    chomp( $_ );             #get rid of whitespace at end
    @f = split( /\s/, $_ );  #split data up into an array

    #ThreeDHash[ GROUP ][ PROJ  ][ MONTH ] = DATA
    $ThreeDHash{ $f[0] }{ $f[1] }{ $f[2] } = $f[ 4 ];
}