foreach (@currentData)
    {
        my ($recordNum, $externalID, $externalParent, $ssid1, $domain1, $timesLocked) = split(/;/, $_);

        print @currentData;
        print "\nin the foreach loop for $recordNum\n";
	}