while (<NOUNS>) {
    foreach my $element (@senElements) {
        ... 
    }
}