this was my original code, and someone brought my attention to the fact that i did not assign any value to my hashes ( %sequences ). i figure he was absolutely right ( thank you for your help ). I have came up with a value for my %sequences, but i would like to make sure i did it right. Again my main purpose on my code is to print ( Left_sequences= left_primers) and ( Right_sequences=Right_primers) from the sequences output ( i called it " output.txt) that i generated from primer3. #! /usr/bin/perl- w #programpro.pl use strict; use primer3; # initialize variables $sequences= primer3->new ( '-format=> 'fasta', '-file=>'output.txt' ); my %sequences = $sequences{'primer'}; my $key; my $file = output.txt; # Read a primer3 output file my $primer3 = primer3-> new ( -file=>data/output.txt); # iterate over sequences foreach $key (keys (%sequences)) { # Search for primers my $primer = primer3-> next_primer; print $key\nLeft\t\t\tRight\n; while ($primer=>getNextpair ( )) { print $primer=> LeftOligo ( ) . \t . $primer=>RightOligo( ) . \n ; } Print \n; }
--------------------------------- Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try it now.