Select Code to Download

%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";
}