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;