Try removing the trailing newline characters while reading the file with chomp $data;.

In general it would be helpful if you provided us a script that actually runs; you can point out problems in comments.