for ($i=0; $i < "total lines"; $i++) {
    for $p (keys %pattern) {
        if ( $line[$i] =~ m/$p/ ) {
            # match; do something and break loop with "last;"
        }
    }
}