#!/usr/bin/perl
use strict;
my $a="b";
my $bb;

{ # start no strict block
   no strict 'refs';
   ${"b$a"}="irgendetwas";
} # end no strict block