my @lines;

while (<DATA>)
{
   push @lines,$_;
}