my $A;
my $B = 0;

print keys %VARIABLES; # <- here I'd like to see: $A$B

for my $i ( $B .. 3 ){
    my $C = 3;
    print keys %VARIABLES; # <- here I'd like to see: $A$B$i$C
}