seek DATA,0,0;
my @lines = <DATA>;
say Dumper \@lines;