Hi monks i have a script that creates an array of strings from a file, I am then trying to run a foreach loop and print the tiltle row and each other row vertically side by side.

What i have prints the title row and all the other rows at once. How do i get it to print foreach row seperatly 

#!/usr/bin/perl
use strict;
use warnings;
local $" = "'\n'";        
open( STDERR, ">&STDOUT" );
my $xlsx_WSD = ( "C:\\Temp\\data.csv"),, 1;
my @csvtemp;

open( FILE,  "<$xlsx_WSD" )  or die "oops\n";
my %data;

my @titles; #heaader row

while (<FILE>) {
    chomp;
    my @strings=split(/,/); 
    foreach (my $i=0; $i<=$#strings; $i++) {
        #header titles
        if ($.==1) {
            $titles[$i]=$strings[$i];
        }

        else {
            push @{$data{$titles[$i]}}, $strings[$i];
}
        }
}
            foreach (@titles){
    local $"="\t"; 
    print  "$_ \t= @{$data{$_}}\n";

}

[download]
input file 
Animal    keepers    M/F    YEAR    DOB    AGE    FSM    PREM ET    ND
+ AL    EAL
GIRAFFE    JAMES LE    M    9    10/12/2007        Y    Y    N    N
HIPPOS    JACKIE LEAN    F    6    11/12/2007        Y    N    Y    Y
ZEBRAS    JAMES LEHERN    M    3    12/12/2007        N    N    N    Y
LIONS    AMIE CAHORT    M    1    13/12/2012        Y    Y    Y    N

[download]
desired output 
Animal    GIRAFFE
keepers    JAMES LE
M/F    M
YEAR    9
DOB    10/12/2007
AGE        
FSM    Y    
PREM ET    Y
ND AL    N
EAL    N


Animal    HIPPOS
keepers    JACKIE LEANE
M/F    F
YEAR    6
DOB    11/12/2007
AGE        
FSM    Y    
PREM ET    N
ND AL    Y
EAL    Y

Animal    ZEBRAS
keepers    JAMES LEHERN
M/F    M
YEAR    3
DOB    12/12/2007
AGE        
FSM    N    
PREM ET    N
ND AL    N
EAL    Y

Animal    LIONS
keepers    AMIE CAHORT
M/F    M
YEAR    1
DOB    13/12/2007
AGE        
FSM    Y    
PREM ET    N
ND AL    Y
EAL    N

[download]

In reply to script to do a foreach on an array of strings outputting the title row and each string element vertically by john.tm

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.