#!/usr/bin/env perl -l

use strict;
use warnings;
use autodie;

use Text::CSV;

my ($all_csv, $sel_csv) = qw{pm_1082609_all.csv pm_1082609_sel.csv};
my $ip = '192.168.10.3';
chomp( my @output = <DATA> );

my $csv = Text::CSV::->new();

open my $out_all_fh, '>>', $all_csv;
$csv->print($out_all_fh => [ split /\t/ ]) for @output;
close $out_all_fh;

open my $in_all_fh, '<', $all_csv;
open my $out_sel_fh, '>>', $sel_csv;

while (my $row = $csv->getline($in_all_fh)) {
    $csv->print($out_sel_fh, [ $ip, @$row[0,8] ]);
} 

close $in_all_fh;
close $out_sel_fh;

__DATA__
2.2.2.2 4   100 273 274 2   0   0   04:30:05    0   
3.3.3.3 4   100 273 274 2   0   0   04:30:05    0   
4.4.4.4 4   100 273 273 2   0   0   04:30:00    0

##</code><code>##

$ cat pm_1082609_all.csv
2.2.2.2,4,100,273,274,2,0,0,04:30:05,0
3.3.3.3,4,100,273,274,2,0,0,04:30:05,0
4.4.4.4,4,100,273,273,2,0,0,04:30:00,0

##</code><code>##

$ cat pm_1082609_sel.csv
192.168.10.3,2.2.2.2,04:30:05
192.168.10.3,3.3.3.3,04:30:05
192.168.10.3,4.4.4.4,04:30:00