Select Code to Download

my %recordformat =
(
...
# Do stuff here

}

  {
    no strict qw(vars refs);
    while(my ($k,$v) = each %datavalues) {$$k = $v;}
  }

sub fillDataFromHash
{
...
                                $recordformat{__COMMON__});
$dataLine = fillDataFromHash(\%datavalues, 
                             $recordformat{$datavalues{'RecordType'}},
+ $dataLine);