If you doubt derby(++), they you can look for youself with this code:

use Data::Dumper; $Data::Dumper::Useqq = 1;
...
            print Dumper 'Before the push', $user;
            push(@$user,"$ent_date\t$message\t$firewall\t$service");
            print Dumper 'After the push', $user;
[download]