l08.pl

   1 #!/usr/bin/perl -w
   2 @jail=("Юрий Есин\n", "Игорь Филипов\n",
   3 "Владимир Дерюжкин\n", "Ильхам Зюлькорнеев\n");
   4 print "На свободу вышел " . pop(@jail);
   5 print "Следующий на очереди " . $jail[-1];