Select Code to Download

#i just considered this is input file
partnm_1 fdfg
...
dont prnt 

this is wrong

open($in,"file.txt") || die "file cannot be opened..$!";
@arr =<$in>;
...
print "@arr1";
}