#!/usr/local/bin/perl
print 'Hello world';
$zmienna=9;
print $zmienna;
$a ='tekst';
$b='tesk2';
$c=$a.$b;
print'\n';

print $c;
$g=4;
$ff=$g x $a;
print $ff;
print "$a i $b";
print "\n";
@tablica={"cos", "cos1"};
$napis=$tablica[0];


print $#tablica;

print @tablica;