#!/usr/bin/perl
# Ex3_3.plx
use warnings;

#Utwrz tablic zawierajc najwaniejsze numery telefonw

my %numbers  =  (
                              mama  =>  "555-1111",
                              tata  =>  "555-2222",
                              brat  =>  "555-3333",
                              siostra  =>  "555-4444"
                     );

#Pobierz dane osoby

print "Podaj dane osoby : \n";
my $Name = <STDIN>;
chomp ($Name);

#Wyszukaj i wywietl numer telefonu danej osoby
print "Numer telefonu $Name :","$numbers{$Name}", "\n";