fibonacci in perl script

#!/usr/bin/perl
$y=0;
@s=@ARGV;
for($i=0;$i<@s;$i++)
{
$y = $s[$i] + $y;
}
print $y."\n";


usage:  ./filename `seq 100`