How to put several qr into an array

We had a problem with a client sending us data that was not consistent.  I decided to write a function that could deal with many regex's.


we put the regexs into an array.  Iterate through the array and break out if any match.

if no regexs match die.


sub figureOutFileFormat {
    my $fileHash     = shift(@_);
    my $batchName     = shift(@_);
    my $file          = shift(@_);

    my $year   ;
    my $month  ;
    my $day    ;

    # set the account number
    my $acct   ;