#!/usr/bin/env perl

use strict;
use warnings;
use autodie;

use constant {
    IN_FILE => 'pm_1200636_text.txt',
    HEADER => 0,
    KEY    => 1,
    VALUE  => 2,
};

my %parsed;

{
    open my $fh, '<', IN_FILE;

    my $name;

    while (<$fh>) {
        my @fields = split;

        if ($fields[HEADER] eq 'name') {
            $name = $fields[KEY];
            next;
        }

        if ($fields[HEADER] eq 'device') {
            push @{$parsed{$name}{$fields[KEY]}}, $fields[VALUE];
            next;
        }
    }
}

# For testing only
use Data::Dump;
dd \%parsed;