package Proverb;

use strict;
use warnings;

sub proverb {
    my ( $items, $qualifier ) = @_;
    my $no_items = scalar @{ $items };
    my $answer;
    foreach my $i ( 0 .. @{ $items } - 2 ) {
        $answer .= "For want of a $items->[$i] the $items->[$i+1] was lost.\n";
    }
    $answer .= "And all for the want of a ";
    $answer .= "$qualifier " unless ( $qualifier eq "" );
    $answer .= "$items->[0].";
    return $answer;
}

1;