This allow us to peresent user always with exact order of columns from file
my @header = split(/\|/, shift @lines);
warn "# header ", dump( @header );
$self->session( 'header' => [ @header ] );
my @header = split(/\|/, shift @lines);
warn "# header ", dump( @header );
$self->session( 'header' => [ @header ] );
+ $self->session( 'columns' => [ @header ] );
foreach my $line ( @lines ) {
my @v = split(/\|/, $line);
my $item;
foreach my $line ( @lines ) {
my @v = split(/\|/, $line);
my $item;