Your script works, I made sure by testing it with a sample file. Could it be that your version.txt has invisible control characters in it? You can find out by using Data::Dumper with $Data::Dumper::Useqq=1 to print $vdata