S_No        S_Name          Acc_Num     Total_Amount
1            Larry            1521          18000      

##</code><code>##

#!/usr/bin/perl -w
use strict;
use warnings;

use Text::CSV;
my$column_separator = qr/,/;
my $column_number = "2";
my$file = "/home/Admin/Documents/new (copy).csv";
open(my$FILE,"<","$file") or die "$!";
while (<$FILE>){
  my @columns = split(/$column_separator/);
  print $columns[$column_number] ,"\n";
}
close $FILE; 

##</code><code>##

Use of uninitialized value in print at another.pl line 15, <$FILE> line 11.