@tab = ("M a r e k", "K u b a", "J a n e k");
print "Tablica: @tab\n\n";
@k = split(" ",$tab[0]);
print "@k";
print "\n$k[0]";