#!/usr/bin/perl 
 
use strict; 
use warnings; 
 
use Data::Dumper; 
 
# Make Data::Dumper pretty 
$Data::Dumper::Sortkeys = 1; 
$Data::Dumper::Indent   = 1; 
 
# Set maximum depth for Data::Dumper, zero means unlimited 
local $Data::Dumper::Maxdepth = 0; 
 
my $Month = ''; 
my %Data = (); 
 
while( <DATA> ){ 
  chomp; 
  my @fields = split /\|/; 
  if( defined( $fields[1] ) && length( $fields[1] ) ){ 
    $Data{$Month}{$fields[0]} = $fields[1]; 
  }else{ 
    $Month = $fields[0]; 
  } 
} 
 
print Dumper \%Data; 
 
__DATA__ 
JAN| 
graph|104| 
success|100| 
on_time|100| 
environment|1| 
builder|3| 
design|0| 
FEB| 
graph|95| 
success|100| 
on_time|100| 
environment|1| 
builder|3| 
design|0|