Select Code to Download

#!/usr/bin/env perl

...
use Data::Dump;
dd \@all_states;
dd \@comment_states;

["Alaska", "Puerto Rico", "Washington", "West Virginia"]
["Washington", "West Virginia"]

    push @comment_states, $state unless $comment;

["West Virginia", "Washington", "Puerto Rico", "Alaska"]
["Puerto Rico", "Alaska"]