Select Code to Download

my %books;
my $twig= new XML::Twig(
...
    $books{$id}{'price'         } = $book->first_child('price'       )
+->text();
    $books{$id}{'publish_date'  } = $book->first_child('publish_date')
+->text();
}

use strict;
use warnings;
...
    $books{$id}{'price'         } = $book->first_child('price'       )
+->text();
    $books{$id}{'publish_date'  } = $book->first_child('publish_date')
+->text();
}

$VAR1 = {
          'bk111' => {
...
                   }
        };