my $stringnum = "\$string" . $num;

  my $result = eval $stringnum;