#!/usr/bin/perl
# Ex3_4.plx
use warnings;
use strict;

my $que_1 = 
      "Ilu potrzeba programistw Javy, aby zmieni arwk? \n";
my $que_2 = 
      "Ilu potrzeba programistw Pythona, aby zmieni arwk? \n";
my $que_3 = 
      "Ilu potrzeba programistw Perla, aby zmieni arwk? \n";
my $que_4 = 
      "Ilu potrzeba programistw C, aby zmieni arwk? \n";

my $answer1  =  "adnego. Zmie j raz, a pozostanie wszdzie taka sama. \n\n";
my $answer2  =  "Jednego. Stoi pod oprawk, a wiat krci si pod nim. \n";
my $answer3  =  
     "Miliona. Jednego do zmiany, reszty do prby uczynienia tego przy pomocy mniejszej iloci kodu \n";
my $answer4  =  "\"A mona co zmienia?!!\" \n\n";

my %jokes  =  (
                        $que_1  =>  "$answer1",
                        $que_2  =>  "$answer2",
                        $que_3  =>  "$answer3",
                        $que_4  =>  "$answer4"
);

print  "$que_1";
sleep  5;
print  "$jokes{$que_1}";

print  "$que_2";
sleep  5;
print  "$jokes{$que_2}";

print  "$que_3";
sleep  5;
print  "$jokes{$que_3}";

print  "$que_4";
sleep  5;
print  "$jokes{$que_4}";