Когда мне нечего написать

Когда мне нечего написать, я не пишу. Даже если пишу о том, что не пишу, когда писать не о чем. Это ведь даже правильно - не писать, когда нет темы для написания. И я не пишу. Когда не о чем писать. Но сейчас-то ведь не тот случай, когда мне не о чем написать, и я не пишу? А может, это как раз случай, когда... Ну, вроде понятно уже.
Примерно такая каша в голове последнее время. Примерно так же выглядят мои последние тесты. Примерно... С трудом вспоминаю, что происходит в тесте, написанном чуть больше недели назад. Не работает то, что работать должно. То, что работать не должно, тоже не работает. Великий язык Перл. Ага, write-only language. Сегодня впервые про это услышал. Люблю Перл, когда пишу на нем. Ненавижу нас обоих, глядя на то, что понаписал больше месяца назад. Хотел именно про это и рассказать, кстати. И сегодня же попалась статья на эту тему. Бывают же совпадения. Не редко. Что-то, заинтересовавшее меня, может так или иначе проявляться в окружающем мире.
Будьте осторожны со своими желаниями, они осуществимы. Но детали решают все. Хотел отдохнуть от работы - неделю провалялся больной. Хотел написать статью - прочитал что-то похожее. Но написать важнее, так сам себе доказываю, что думать не разучился. А ведь первые обзацы шли с трудом...

Следующие две строчки делают одно и то же (спасибо начальнику за второй вариант):

my $var = $x > $y ? $x : $y;
my $var = ($x, $y)[$x < $y];

А это просто шутка:

sub first_and_last_quarters($) {
    my $arr_ref = shift;    
    return [@{$arr_ref}[0..($#{$arr_ref}/4)], @{$arr_ref}[(3*($#{$arr_ref}/4))..$#{$arr_ref}]];
}

Работать должно. Попробуйте теперь заменить $arr_ref на $_[0].