E. Choroba choroba

## gist:4be98adb9425bd40ba0d
#!/usr/bin/perl
use warnings;
use strict;

use Test::More tests => 3;

{   my @list;

    sub init {
        my %elem;

## quine
$_=q!print'$_=q*'.$_.'*;';s/\52/\41/g;print!;print'$_=q!'.$_.'!;';s/\52/\41/g;print
	#!/usr/bin/perl
	use warnings;
	use strict;

	use Test::More tests => 3;

	{ my @list;

	sub init {
	my %elem;