c:\@Work\Perl\monks>perl -wMstrict -le
"use Data::Dump qw(dd);
 ;;
 my %hash = qw(title1 uno  title3 tres  title4 quatro  title2 dos);
 ;;
 my @labels  = sort keys %hash;
 my @content = @hash{@labels};
 ;;
 dd \%hash;
 dd \@labels;
 dd \@content;
"
{ title1 => "uno", title2 => "dos", title3 => "tres", title4 => "quatro" }

["title1", "title2", "title3", "title4"]

["uno", "dos", "tres", "quatro"]