my $file="Working_On.csv"; open(FILE,"<","$file"); my @lines=;