print " @{$_}[3,0,1,2] \n" for @$points;