use strict;
use warnings;

...snip...

   my $nn = "admin_contact_fk" ;
   my $foo = $record->$nn;

perl -c CDNR.pm
syntax error at CDNR.pm line 293, near "$nn;"
BEGIN not safe after errors--compilation aborted at CDNR.pm line 466.

##</code><code>##

   my $foo = $record->admin_contact_fk;