Select Code to Download

 while (1){

                my @event = $astman->read_response;
                chomp(@event);

lock(%queue_changes);
$event_id = int(rand(25000));
%type = &event_hasher(\@event);

sub event_hasher{
        my @cur_event = @{$_[0]};
...
        }
        return %event_hash;
}

$queue_changes{$event_id} = %type;

Sat Jan  9 21:10:50 2016
1452391850.044984517
...
          'Status: 1',
          'Paused: 0'
        ];

Sat Jan  9 21:10:52 2016
1452391852.284037579
...
          'Paused' => '0',
          'Membership' => 'dynamic'
        };

Queue Changes after Event Hashed:
$VAR1 = {
...
                      'Location' => 'SIP/EXTENSION-XXXX'
                    }
        };

Sat Jan  9 21:10:52 2016
1452391852.286708251
...
                      'Location' => 'SIP/EXTENSION-XXXX'
                    }
        };

perl -v

...
Complete documentation for Perl, including FAQ lists, should be found 
+on
this system using "man perl" or "perldoc perl".  If you have access to
+ the
Internet, point your browser at http://www.perl.org/, the Perl Home Pa
+ge.