Language: C C++ D Haskell Lua OCaml PHP Perl Plain Text Python Ruby Scheme Tcl @gene = ("gene1" , "gene2" , "gene3"); print "list of gene present are: \n "; foreach $gene (@gene) { print "$gene\n"; } print "the gene i am working with is: $gene[0] "; Private [?] Run code