my $last = ( split /\n/, $set )[-1];
 $last = "" unless($last);
 $set .= ( $last . "\n" ) x 9;
 $set .= $_ . "\n" for (@fallend);
 $set .= "\n\n";
 return $set;