You try to initialize (for example) $listenerName in the following lines:

            &QueueManager::AddListenerName($SplitLine[7]);
            &QueueManager::AddPort($SplitLine[8]);
            &QueueManager::AddChannel($SplitLine[9]);
            &QueueManager::AddQueue($SplitLine[10], $SplitLine[11], $S
+plitLine[12], $SplitLine[22]);
[download]

So, most likely, @SplitLine does not contain what you think it does. Use Data::Dumper to see what is in @SplitLine and then change your code. Also, maybe just use Text::CSV_XS for parsing the CSV.