Re^3: perl grep with regex

[choroba]

There's probably some whitespace at the end of the lines in the file. Remove it:

s/\s+$// for @arr2;

[swissknife]

actually the space was in the beginning of line. i removed it and now it is working correctly.