in reply to Very basic question on performance

I would say that "none of the above" is best. 
sub diag {
   my ($x,$y) = @_;
   #faster 
}

[download]

In Section Seekers of Perl Wisdom