Two files processing

I have the following two files:

1st File:

1:1:100
2:101:400
3:401:450
4:451:600
5:601:980
6:981:1500
7:1501:1600
8:1601:1800
9:1801:2000

2nd File:

30
50
80
700
1500
900
600
1900

I want to make a perl script to make process on the two files to get the ouput as follow:
1
1
1
5
6
5
4
9

Please can any one help me?

You asked for a perl solution,
but if awk is acceptable:

awk 'NR == FNR { a1[$1] = $2; a2[$1] = $3; next }
{ for(n in a1)
    if ($1 >= a1[n] && $1 <= a2[n])
        print n
}' FS=":" fileA fileB

Use nawk or /usr/xpg4/bin/awk on Solaris.