my @row :zero :nocirc;

while ($row[1]<10) {
    @row=map $row[$_-1]+$row[$_], 0..@row;
    print "@row";
}