Select Code to Download

sub test {
  if (wantarray){
...
    return ('A', 'List', 'of', 'Strings');
  }
}

sub fetchall_arrayref {
    my $slice= shift || [];
...
    }
    return \@rows;
}

  $sth->fetchall_arrayref( [] ) # returns Array references
  $sth->fetchall_arrayref( {} ) # returns Hash  references