@m=("Juku", "Kati", "Mati");
print $m[1]."\n";             #Kati
print $#m."\n";               #viimane element
print scalar(@m)."\n";        #elementide arv
$m[$#m+1]="Siim";             #lõppu lisamine
print join(", ", @m) ."\n";
print join(", ", @m[0, 1]) ."\n";

