Most of the time when you feel the ned to dynamicaly name vars you are really looking to use a hash.

so if the data file looked like this:
data=stuff you want in data
data2=stuff you want in data2
...
data5921=stuff you want in data 5921

you may:

open (INFILE, "datafile.txt") or die "oopsie can not open datafile.txt
+!  $1\n";
while (<INFILE>) {
chomp;
($part1,$part2) = split /=/;
$itsahash{"$part1"} = $part2;
}

then you can access what you thought was data in the OP as:

print $itsahash{"data"};
[download]

which will print "stuff you wanted in data"

-Waswas