Array Perl

  1. Home
  2. Perl
  3. Array
  4. Using splice to insert array elements
#!/usr/local/bin/perl 
$count = 0; 
while ($line = ) { 
    chop ($line); 
    @words = split(/\s+/, $line); 
    $added = 0; 
    for ($i = 0; $i+$added < @words; $i++) { 
        if ($count > 0 && ($count + $i) % 10 == 0) { 
            splice (@words, $i+$added, 0, 
            $count + $i); 
            $added += 1; 
        } 
    } 
    $count += @words - $added; 
    $line = join (" ", @words); 
    print ("$line\n"); 
}