#!/usr/bin/perl
open(I1,"IM.csv") or die "IM.csv: $!";
$_ = <I1>;   # read column headings

while (<I1>) {  # get data
    chomp;
    push @lines, $_ ;
  }

open(I2,"Attributes-EP2005Sep23-1907.txt") or die "Attributes-EP2005Sep23-1907.txt: $!";
$_ = <I2>;   # read column headings
while (<I2>) {  # get data
        chomp;
        push @lines2, $_ ;
      }

foreach ( @lines ) {
    my ($qty,$name,$size,$color,$descript) = split /,/;
    #print "$qty,$name,$size,$color,$descript\n";
    if ($qty <= 0){$qty= ''}
    else{$qty=0};
                        foreach ( shift(@lines2) ) {
                        my ($v_products_model,$therest) = split(/,/,$_,2);
                        print "$v_products_model\n";

                        if ($v_products_model eq $name){
                        my ($begin, $end) = split(/.,$size/,$therest);
                        print "$v_products_model,$begin\n";
                        }
                        else{push @lines2,$_}
}