sub TestArray {
my @file_array;
my $InputFile = "/home/test/test_file.dat"; # '|' separator file
my $column;
my $row;

tie @file_array, 'Tie::File', $InputFile or die $!;
shift @file_array;

foreach $row (0..@file_array-1)
{
        foreach $column (0..@{$file_array[$row]}-1)
        {
            $LOG->info( "Element [$row][$column] = $file_array[$row][$column]\n");
        }
}
}