#!/usr/bin/perl

use strict;
use warnings;

sub pisz_tab {
	my ($rtab, $ind) = @_;
	print $rtab->[$ind],"\n";
}

sub pisz_hash {
	my ($htab, $ind) = @_;
	print $htab->{$ind},"\n";
}

sub pisz_liste { 
	my $n = @_;
	my $i;
	for($i=0;$i<$n;$i++) { 
		my $el=shift(@_);
		print $el,"\n";
	}
}

my $rhtb = {'ala' => 'ola', 'as' => 'azor'};
my @tb = ('zero', 'jeden', 'dwa');

pisz_tab(\@tb,0);
pisz_hash($rhtb,'ala');
pisz_liste(1, 2);
pisz_liste(1, 2, 'ala', 'ola');