Select Code to Download

#! perl -slw
use strict;
...
Hostname2     2.2.2.2     Juniper
              Chassis Serial Number abc123
              Interface Gi-0/0/31

$VAR1 = [
          {
...
          }
        ];

 my ($current,%data)
...
        $current and $data{$current->{HOST}} = $current; # in 2 places
        $current = {HOST=>$host, IP=>$ip, BRAND=>$brand};