#!/usr/bin/perl -l

use strict;
# use warnings;

my @row;

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

__END__