my $count = 0;
        while ( 1 ) { 
                chomp( $swapon );
                print FH "[$swapon $count]\n"; 
                push @blackhole, "$count ---------------------------------------
+--------------------------------\n"; 
                $count++;
                $swapon = `swapon -s | tail -1` unless ++$count % 1000;
        }