#!usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my $set     = [];
my $record1 = {
    hostname    => 'box',
    timestamp1  => '200412311931',
    timestamp2  => '200503190712',
    text        => 'Hello World!',
    # yada yada yada
};

my $record2 = {
    hostname    => 'box2',
    timestamp1  => '200412311931',
    timestamp2  => '200503190712',
    text        => 'foo bar baz',
    # yada yada yada
};

push @$set, $record1;
push @$set, $record2;

print Dumper $set;

print Dumper grep { $_->{hostname} eq 'box' } @$set; # filtering records