if ( $subkey eq 1 ) {
...
}
elsif ( $subkey eq 11 ) {
...
}
...

##</code><code>##

elsif($new1 == /1/){

##</code><code>##

elsif($new1 == /9/){

##</code><code>##

elsif($new1 =~ /1/){

##</code><code>##

elsif($new1 eq 1){

##</code><code>##

#!/usr/bin/perl -w

use strict;

for my $new1 qw(1 11 a1a 1aa 001 010) {

    print "$new1 == /1/ : ";
    if ( $new1 == /1/ ) {
        print "YES\n";
    }
    else {
        print "NO\n";
    }

    print "-" x 10, $/;

    print "$new1 == 1 : ";
    if ( $new1 == 1 ) {
        print "YES\n";
    }
    else {
        print "NO\n";
    }

    print "-" x 10, $/;

    print "$new1 =~ /1/ : ";
    if ( $new1 =~ /1/ ) {
        print "YES\n";
    }
    else {
        print "NO\n";
    }

    print "-" x 10, $/;

    print "$new1 eq /1/ : ";
    if ( $new1 eq /1/ ) {
        print "YES\n";
    }
    else {
        print "NO\n";
    }

    print "-" x 10, $/;

    print "$new1 eq 1 : ";
    if ( $new1 eq 1 ) {
        print "YES\n";
    }
    else {
        print "NO\n";
    }

    print "=" x 10, $/;

}

##</code><code>##

if ( $new1 == /1/ )

##</code><code>##

Use of uninitialized value in pattern match (m//) at ./try.pl line 8.