Select Code to Download

warn Dumper \@msgs;

    while ( my $thread = $sth->fetchrow_hashref() ){
        my (@data) = $thread->{id}, 
...
        push @msgs, \@data;
    }
    return @msgs; # although i would likely return \@msgs ...

sub selectMsgFromDb {
    my ($self, %params) = @_;
...

    return $messages;
}