@array=map{join(' ',(split(' ',$_))[1,0,3,2])}@array;