#!/usr/bin/perl -w
use strict;

my @aFieldHeaders;
my %hFieldConfigs;

my $sConfigFile = 'mydata.csv';
ConfigRead(sFILE => $sConfigFile,
           apHEAD => \@aFieldHeaders,
           hpFIELDCONF => \%hFieldConfigs);

# my array and hash now have some cool stuff in 'em!


sub ConfigRead {
    my %hArgs = (
        sFILE    => 'BAD',      # lazy user alert! whine & die
        apHEAD  => 'BAD',       # ^^^ see comment above
        hpFIELDCONF => 'BAD',   # by now you know the drill!
        @_,                     # user demands come from here
    );
    
    # stick some cool stuff in their variables
}