#!/usr/bin/perl

# http://perlmonks.org/?node_id=1188504

use strict;
use warnings;

my %hash = qw( title1 one title3 three title4 four title2 two );

my @labels = sort keys %hash;

my @content = @hash{@labels};

use Data::Dumper;
print Dumper \%hash;
print "\n";
print Dumper \@labels;
print "\n";
print Dumper \@content;