package foo;
use strict;

sub build_data {
    my @ra = ();
    @ra = <DATA>;
    return (\@ra);  }
1;
__DATA__
DAY1 asas aerer
DAY1 qwrep poiu wer
DAY2 faas dfa sdf as