my @seq = (1,1);


for my $i (0..@ARGV[0]) {
  print  "$seq[$i]/$seq[$i+1]\n";
  my $next1 = $seq[$i]+$seq[$i+1];

  push @seq, $next1;
  push @seq, @seq[$i+1];
  }