for ($f... 
...
no strict 'refs';
my $x= ${$fieldname.$f};
use strict 'refs';