22-28
36
44-49
234
77
26

##</code><code>##

23
11
21
44
233
26

##</code><code>##

for (@fileTow)
{
for (@fileOne)
{ 
    if ($_  =~ /(\d+)-(\d+)/) { my ($start, $end) = split(/-/, $_)};
if (($fileTowValue== $_ ) or ( $fileTowValue>= $start) and ( $fileTowValue<= $end)) {print"$fileTowValue\n"};
}
}