my $dummy;
sub x1{
    open my $fh, '<', shift or die $!;
        my @AoA;
        while (my $line = <$fh>) {
        my @line_arr = split ',', $line;
        #push @AoA, \@line_arr;
        $dummy = 1;
    }
}