#!/usr/bin/perl -w

use strict;
use warnings;
use Data::Dumper;

open my $fh, '<', $ARGV[0] or die $!;
my @lines = <$fh>;
close $fh;

my %data;

for my $line (@lines) {
    my @fields;
    @fields = split /\s+/, $line;

    $data{$fields[1]}{$fields[0]} = $fields[2];
}


for my $key (keys %data)
{
    print "$key = $data{$key}\n";

    for my $subkey (keys %{$data{$key}}) {
       print "\t$subkey = $data{$key}{$subkey}\n";
    }
}

print Dumper(\%data);