Recursive fibonacci series

my $sum=1;

sub fibonacci {
if ( @_[0] == 0 ) { return 0; }
my $x = fibonacci (@_[0] -1);
my $y = $sum;
print $x.' ';
$sum += $x;
return $y;
}

fibonacci (12);