$broj = 2;
$string = "abc";
@list = ($broj, "def");
$string = ($string x ($broj+1))."ab"[0,1];
push (@list, $string);
print (@list);
