use v5.12; 
use warnings;
use Data::Dumper;
say __LINE__;
say __LINE__;
say __LINE__;


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

__DATA__