$ perl -Mstrict -Mwarnings -E '
    my @STB_keys = ("Date Active", "Manufacturer");
    my %hash;
    my $line = "Zone1 - Box1,01/06/2011,Amstrad";
    my @box = split /,/ => $line;
    my $location = shift @box;
    @{$hash{$location}}{@STB_keys} = @box;
    say $hash{"Zone1 - Box1"}{"Date Active"};
    say $hash{"Zone1 - Box1"}{"Manufacturer"};
'
01/06/2011
Amstrad