$obj->wind_Up( $LOGPATH, $test_id, \%matchData, $recordType, \%recordHash );

...

sub wind_Up {
my( $self, $copyLocation, $tcid, $parseDataRef, $actRecordType, $cdrHashRef ) = @_ ;
....
....}