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


@one  =  qw(jeden dwa trzy cztery pi sze);
@two  =  qw(dwa cztery sze osiem dziesi dwanacie);
@three  =  qw(trzy sze dziewi dwanacie pitnacie osiemnacie);
@four  =  qw(cztery osiem dwanacie szesnacie dwadziecia dwadziecia_cztery);
@five  =  qw(pi dziesi pitnacie dwadziecia dwadziecia_pi trzydzieci);
@six  =  qw(sze dwanacie osiemnacie dwadziecia_cztery trzydzieci trzydzieci_sze);

@mult_table  =  (\@one, \@two, \@three, \@four, \@five, \@six);
print  "Podaj liczb pomidzy 1 a 6: ";
$i  =  <STDIN>;
print  "Podaj liczb pomidzy 1 a 6: ";
$j  =  <STDIN>;
chomp  ($i,  $j);

print  $i--,  "  mnoone przez  ",  $j--,"  jest rwne  ",  $mult_table[$i]->[$j], "\n";