$name=qq(1 AC2 34 TRP A 6 ALA A 7 ILE A 14 GLY A 15);

split (/ /, $name);

### Process the temp array
for ( $i=0; $i<=$#_; $i++)
{
	push @get, (join ' ', @_[$i..$i+2]);
	$i=$i+2;
}

print "\n$_" for @get;