for my $entry (sort {$a->[0] <=> $b->[0]} @{$data{$state}{entry}}) {
    # ...
}