Select Code to Download

#!/usr/bin/perl
use strict;
...
  print MYOUTFILE "@lines \n";
  close(MYOUTFILE); # Close output file 
}

 Locus    Alleles        frequencies
 Bet01 230       0.166666666666666657415 
...
 Bet05 101       0.285714285714285698425 
 Bet05 103       0.500000000000000000000 
 Bet05 105       0.142857142857142849213