use Text::CSV_XS;

my $csv = Text::CSV_XS->new ({ binary => 1 }) or
     die "Cannot use CSV: ".Text::CSV->error_diag ();

open my $fh, "<:encoding(utf8)", "swma_data.csv" 
or die "swma_data.csv: $!";
 
while (my $row = $csv->getline ($fh)) 
	{
#begin while loop
	chomp; 
### I know that I need to process $row->[1]  and  $row->[9]
## But I Do not know how to proceed from here 

}