Help for this page
%books=( '54' => ['enlgish', 'bob falicas', 17], '34' => ['enlgish', 'dani M. rod', 54], '24' => ['spanish', 'ramk rovale', 41], );
while (my($key, $value) = each(%books)){ print "$key: $value\n"; }