#!/usr/bin/env perl

use strict;
use warnings;

my %books=(
    '34' => ['enlgish', 'dani M. rod', 54],
    '24' => ['spanish', 'ramk rovale', 41],
    '54' => ['enlgish', 'bob falicas', 17],
);


my @sorted_books = sort {
	$books{$a}->[1] cmp $books{$b}->[1]
	#lc($books{$a}->[1]) cmp lc($books{$b}->[1])
} keys %books;

print "@sorted_books";