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

my @array_A; # array initialization as array_X where X corresponds to column of csv
my @array_B;


use Text::CSV;

print " Hello  please enter the name of your csv file ";
print "\n";
my $filename = <>;
    chomp $filename;

@array= data ($filename,0);      # funcn call 
    ...