Select Code to Download

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

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

my $twig = XML::Twig->new($data_struct);
while (<$fh>) {
...
    my $copy = deep_copy($data_struct);
    $data_struct = clear_structure($data_struct);
}