#!/usr/bin/perl
# <weby>

use strict;

my @arr = qw(0 1);

for (0..10) {
    ($a, $b) = ($arr[$#arr-1], $arr[$#arr]);
    push @arr, $a+$b;
}
print join(", ", @arr). "\n";


=cut

$TwoNumbers = "0 1";
for (0..10) {
    $TwoNumbers =~ m/(\d+)\s(\d+)$/;
    $NextNum = $1+$2;
    $TwoNumbers = $TwoNumbers." ".$NextNum;
    print "$TwoNumbers\n";
}

=cut