$ perl -wle'
use Data::Dumper;
$ac_nr = 23;
$tmp_hash{$ac_nr}->{ac_nr} = 1;
print Dumper \%tmp_hash;'
$VAR1 = {
          '23' => {
                    'ac_nr' => 1
                  }
        };