while (<$fh>) {
    my $twig = XML::Twig->new($data_struct);
    $twig->parse($_);
    # ...
}