my @aData;
{
  #set the record divider to __DATA__ :-)
  local  $/='__DATA__';
  @aData = <DATA>;
  chomp @aData;        #get rid of __DATA__ from end of record
}
print STDERR "------------DATA #1 ----------------\n$aData[0]"
           . "------------DATA #2 ----------------\n$aData[1]";