Select Code to Download

{
    "91280": "CA",
    "61682": "NY",
    "23823": "WA"
}

use warnings;
use strict;
...
}

print "$_: $data->{$_}\n" for sort keys %$data;

23823: WA
61682: NY
91280: CA