#!/usr/bin/perl

use 5.010;
use strict;
use warnings;


my $storm = [

    "Every want without a pleasure.\n",
    "Cries to each beyond unheard.\n",
    "Softly spun, bound in isolation\n",
    "and placed in the abundant caress\n",
    "of an infinite stillness.",

];
    
my @stillness = (
        
    $storm->[0], 
    $storm->[1], 
    $storm->[2], 
    $storm->[3], 
    $storm->[4]

);

say @stillness[0..4];