my $obj = new Parser();
$obj->parse;
print "$_\n" for @{$$obj{_data}};