@data=split (/\s+/,$_);
    $a=$data[0];
    $b=$data[3];
    $c=$data[4];
    $d=$data[5];