open (FILE, 'myfile.csv'); while (<FILE>) { chomp; ($alias, $server, $port) = split("\t"); print "$alias = (ADDRESS = (PROTOCOL = TCP)(HOST = $server)(PORT = $port)) } close (FILE); exit;