Select Code to Download

use Bio::SeqIO;

...
while ( ($key, $val) = each %{$seq->names()} ) {
    print "$key\t$val\n";
}

 SCF Done:  E(RHF) =  -113.873389817     A.U. after   11 
cycles
/SCF Done.*=\s?([\-\d\.]*\d+)/

 SCF Done=  -113.873389817.
/SCF Done=\s?([\-\d\.]*\d+)/

perl -ne '$V{$1}=$ARGV if /SCF Done.*=\s*([\-\d\.]*\d+)/; END{@_=sort 
+keys %V;print "Lowest value is $_[0] in file $V{$_[0]}\n"}'  *.log