my %filehash = ();

while (<>){
    @pline = split (/\!/,$_);
my $keycolumn = $pline[15]; # based on this col values split files
    unless ($filehash{$keycolumn}){
          $filehash{$keycolumn}{name} = $pline[15];
          open $filehash{$keycolumn}{handle},">$filehash{$keycolumn}{n
+ame}; # open distinct file handles for each distinct value found in c
+ol 15
    }
print {$filehash{$keycolumn}{handle}} @pline;
    }
# In the above code iam considering all col's , but my new requirement
+ is , for some rows i should only some predifined  col's which can 1,
+3,5,6,7 i.e. i need slice these indices from @pline before writing it
+ into corresponding file
[download]

Thx for reply, let me make my question rather more simple

# Assume below line is read from a file 
my @array = qw/i will skip some words here using splice/;
print "Array before deletion \n";
print join("-->",@array),"\n";
print "Enter the Indices which you like to skip\n";
chomp($indices=<STDIN>);
# i entered 2,4,5
my @indices = split(/\,/,$indices);
foreach (@indices){
     splice (@array,$_,1); # remove element 
}
print "Updated array is as below \n";
print join("==>",@array),"\n";
# if there is any easy way of doing above in short , i can integrate i
+n my existing code
[download]

All you need is an array slice:

## Assume @array contains fields (from wherever)
## Assume @indices contains field numbers to keep (from wherever)

@array = @array[ @indices ];

## Now, @array only contains the fields you want to keep.
[download]

---

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

"Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."