while (my $line = <FH>) {
  while ( $line =~ /-number_of_SP_mem_supp\s(\d+)/g ) {
   my $first = $1;
   #print "$first\n";
   my @a = (1..$first);
   foreach(@a){
    print("$_","\n");
}
  }