my @data;
$/="";
while(<>)
{

$data=$_;
push (@data, $data);
print "@data\n";

}