Two comments:

1. If you have use warnings; then you already know, but otherwise accessing the first element of your list you would write $two[0].
2. You could replace sqrt((@two[2]*@two[2])/2) by $two[2]/sqrt(2).