#!/usr/bin/perl
use strict;
use warnings;

my $file = "File_Path";

open FH, $file, or die "Can't open $file $!\n";
my %hash = ();
while(<FH>){
  my @array = split(/ +/, $_);
  $hash{$array[0]}{$array[1]}{$array[2]} = $array[3];
}
print Data::Dumper(%hash);
# Hash array created in the format
# server01: => {2015-06-23T21:58:05-05:00 => FC_IO_BY_R = #13,550,785}