配列（内部無名ハッシュ）のソート＋Dumperでの確認方法

以下のような配列データがあるとします

my @data=(
　　{"id"=>1, 'title'=>'sample1', 'created_at'=>'2009/01/31'},
　　{"id"=>2, 'title'=>'abmple2', 'created_at'=>'2009/01/22'},
　　{"id"=>3, 'title'=>'fle3', 'created_at'=>'2009/01/23'},
　　{"id"=>4, 'title'=>'ble4', 'created_at'=>'2009/01/04'},
);

これらをソートする方法。

print "<pre>" .Dumper(\@data) .　"</pre>";

print "<hr>";

#--- ★  タイトル(title)でソート
my @sorted_array = sort { $a->{title} cmp $b->{title} } @data; 
print "<pre>" .Dumper(\@sorted_array) .　"</pre>";


#--- ★  登録日時(created_at)でソート
my @sorted_array2 = sort { $a->{created_at} cmp $b->{created_at} } @data; 
print "<pre>" .Dumper(\@sorted_array2) .　"</pre>";

#--- ★ 数値として

my @sorted_array3 = sort { $a->{id} <=> $b->{id} } @data; 
print "<pre>" .Dumper(\@sorted_array3) .　"</pre>";