Select Code to Download

#!/usr/bin/perl -l

...
}

__END__

my @row :zero;

my @row :zero :nocirc;

...
    @row=map $row[$_-1]+$row[$_], 0..@row;
    print "@row";
}