#!/usr/bin/env perl
use strict;
use warnings;

my $MaxScanId = 45;
my $a = "Scan";
my $b;
my $c;
my $d;

print "a $a, maxScanId $MaxScanId \n\n";

$b = "Max".$a."Id";

$c = "\$".$b;

print "c: $c \n\n";

$d = \$c;
print "d: ${$d} \n";

##</code><code>##

results:

a Scan, maxScanId 45

c: $MaxScanId

d: $MaxScanId