use strict;

sub dataSetup {
    return 
    (
                  [ qw|a b c d| ] , 
                  [ qw|a b c d| ] ,
                  [ qw|a b c d| ]
                  )
    ;         
}

sub main {
     my @multi = dataSetup();
                  
     foreach my $row (@multi){
          foreach(@$row){
               print qq|$_\n|;               
          }                   
     }
}
#----
&main;