$input_file_name = "test_file.csv";
open (FILE,$input_file_name) or die "Can not open file $input_file_name!";

while ($line_query_input=<FILE>)
{ 
@query_input=split("\,",$line_query_input)) # Splits line into array 
# #chomp($line_query_input); # Removes \n at every word 
...
}