song_acs.txt

770
404
718
203
901
305
312
313
215
803
757
410
504
972
713
314
201
212
213
916
415
704
206
808
216
702
414
317
214
281
334
205
318
601
203
804
402
301
904
407
850
708
502

areacodes_list.csv

map_area_codes.pl

#!/usr/bin/env perl
use 5.010;
use strict;
use warnings;

use DBI;

my $areacodes   = 'areacodes_list.csv';
my $song_acs    = 'song_acs.txt';

open my $FHIN, '<', $song_acs or die "Could not open $song_acs\n$!";

my $dbh = DBI->connect(
    "dbi:CSV:", undef, undef, {
        f_dir   => '.',
        f_ext   => '.csv/r',
        r_enc   => 'utf-8'
    }
);

my $sth = $dbh->prepare("SELECT state FROM areacodes_list where areacode = ?");

my %mappings;
while (my $line = <$FHIN>) {
    chomp $line;

    $sth->execute($line);
    my $state = $sth->fetchrow;

    push @{$mappings{$state}}, $line;
}

use Data::Dump;
dd \%mappings;

results.pl

{
  AL => [334, 205],
  CA => [213, 916, 415],
  CT => [203, 203],
  FL => [305, 904, 407, 850],
  GA => [770, 404],
  HI => [808],
  IL => [312, 708],
  IN => [317],
  KY => [502],
  LA => [504, 318],
  MD => [410, 301],
  MI => [313],
  MO => [314],
  MS => [601],
  NC => [704],
  NE => [402],
  NJ => [201],
  NV => [702],
  NY => [718, 212],
  OH => [216],
  PA => [215],
  SC => [803],
  TN => [901],
  TX => [972, 713, 214, 281],
  VA => [757, 804],
  WA => [206],
  WI => [414],
}