#!/usr/bin/perl -w
sub fibStep {
    ($_[1], $_[0] + $_[1]);
}

my @FibonacciSequence = @_ = (1, 1);

for($i = 0; $i < 10; $i++) {
    @_ = &fibStep;
    @FibonacciSequence = (@FibonacciSequence, $_[-1]);
}

print join("," , @FibonacciSequence), "\n";

