for (my $i=0;$i<10;$i++)
  {
  push(@fallend,$fallend[-1]);
  }