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

##</code><code>##

use warnings;
use strict;

use JSON;

my $file = 'codes.json';

my $data;

{
    local $/;
    open my $fh, '<', $file or die $!;
    my $json = <$fh>;
    $data = decode_json $json;
}

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

##</code><code>##

23823: WA
61682: NY
91280: CA