Select Code to Download

use strict;
my @the_data = (
...
for ( sort { ($$a{field2} <=> $$b{field2}) && ($$a{field3} cmp $$b{fie
+ld3}) } @the_data ) {
    print $$_{field1} . "\n";
}

 second item
third item
first item