#!/usr/bin/perl

$x_point = "total[26]";

$total[26] = "foo";

$result = eval "\$$x_point";

print "result=$result\n";  # foo