use WWW::mechanize::Firefox;
use Data::Dumper;
$mech= WWW::Mechanize::Firefox->new();

$mech->get(URL);

%arr_ref = (AL => [1795, 1276, 795, 1719, 1363, 1145, 961, 17, 18, 1995, 977, 1910, 1691, 21, 1660, 1768], 
AK => [1145, 961, 1995, 977, 1781, 1704], 
AZ => [1873, 872, 1145, 690, 1162, 961, 918, 528, 811, 704, 529, 1983, 931, 40, 1995, 977, 597, 1157, 530, 598, 886, 782, 42, 691, 1945]);

foreach my $key (sort keys %arr_ref) {
    print "$key :: @{$arr_ref{$key}} \n";
    $mech->field( stateUSAId => $key );
    foreach  (@{$arr_ref{$key}}) {
            $mech->field(institutionUSAId=>$_);
            print $mech->content;
    }

}