#!/usr/bin/perl

use strict;
use warnings;

my $blossoms;
my $orioles_sound;
my $frog_sound;
my $listen;
my $count;

$blossoms = "fallen";
if($blossoms eq "fallen"){
    print "No one cares the $blossoms blossoms.\n";
    print "Only shades of trees spreading.\n\n";
}

$frog_sound = "frogs croaking";
$orioles_sound = "orioles singing";
$count = 12;

while($count > 0){
    $listen = join(',',$frog_sound,$orioles_sound);
    print "There are $listen.\n";
    $count--;
    if($count == 0){
        $listen = $frog_sound;
        print "\nOrioles emit no more sound.\n";
        print "I alone listen to $listen.\n";
    }
}