Призрак древнейшего троллейбусного маршрута

Как известно, самый первый челябинский троллейбус пошёл в 1942 году по маршруту номер 2 — от ЧТЗ до улицы Клары Цеткин. Первый тоже был — они в один день появились. Но двойка стартовала раньше. Потом менялась сеть, маршруты передавались между разными депо, но первая тройка маршрутов (если не считать небольшого увеличения их длины) оставалась неизменной. К 1968 второй маршрут стал именно таким, каким мы его помним: от ЧТЗ по проспекту Ленина до самого его конца, затем по улицам Лесопарковой и Сони Кривой — к радиозаводу, и по Тернопольской — обратно на проспект.

Несколько лет назад, под предлогом убыточности перевозок и снижения пассажиропотока второй маршрут закрыли. Хотя о каком снижении пассажиропотока речь? Проблемы на ЧТЗ? Меньше рабочих? Посмотрите на другой конец маршрута — ЮУрГУ всё растёт и растёт, вечером, в 19 часов (в учебное время, с сентября по май) на остановке собираются толпы желающих уехать. А троллейбуса-то нет! И маршрутки не справляются. И не справятся.

Казалось бы, восстанови маршрут — и всё, всем будет хорошо. Прокатившись на троллейбусе несколько раз по пути с работы домой, узнал, что фактически маршрут существует: я два вечера подряд, садясь в девятнадцатый, слышал: «На ЧТЗ идёт троллейбус. На ЧТЗ». В один из разов было ещё веселее: выехав на Площадь Революции (где в проспект Ленина с улицы Воровского вливается 11-й маршрут), водитель стал объявлять, что якобы идёт по одиннадцатому маршруту.

Кому нужна такая глупая конспирация? Неудобно же! Непонятно, что мешает первому депо восстановить маршрут: там всего-то и надо — нарисовать таблички. Или найти старые.

upd/12.12.2011: Второй троллейбусный маршрут восстановлен.

Кручу-верчу — Сдвиг элементов списка с переносом крайнего элемента в другой конец

Вообще-то, это очевидное решение. Но чтобы не думать одну мысль дважды — пусть будет тут:

#!/usr/bin/perl -w
use strict;
$\ = "\n";

my @ar = qw(a b c d);

# Rotate left: abcd → bcda
# ┌─ list ←┐
# └────────┘

push @ar, shift @ar;
print @ar;

# Rotate right: abcd → dabc
# ┌→ list ─┐
# └────────┘

unshift @ar, pop @ar;
print @ar;