Вот оно! Вот оно!!!
#!/usr/bin/perl
use strict;
my @a = ('Г', 'л','а','в','н','ы','й','В','о','п','р','о','с','О','Ж','и','з','н','и',',','В','с','е','л','е','н','н','о','й','И','В','с','я','к','о','м','Т','а','к','о','м','?');
my $x = @a;
print $x;
Тут дело в скорости охлаждения. Через узкое горлышко вода разбрызгивается по всем внутренностям банки и быстро охлаждает воздух внутри. Давление падает быстрее, чем в горлышко поступает вода, вот ее и «плющит»!
#!/usr/bin/perl
use strict;
my @a = ('Г', 'л','а','в','н','ы','й','В','о','п','р','о','с','О','Ж','и','з','н','и',',','В','с','е','л','е','н','н','о','й','И','В','с','я','к','о','м','Т','а','к','о','м','?');
my $x = @a;
print $x;