FILE:
Col1 Col2 Col3
12 A B
15 CD CD
18 CD EF

##</code><code>##


while(<>){

chomp;
($col1, $col2, $col3)=split(/\s/,$_);
$encry_col1=encrypt($col1);
$decry_col1=decrypt($col1);

print "$encry_col1,$decry_col1, $col1, $col2, $col3\n";
}


sub encrypt{
$data=shift;

##how to encrypt this?

}


sub decrypt{
$data=shift;

##how to decrypt this?

}