Select Code to Download

#/bin/perl/

use strict;
...

    return map sprintf( $format, $_ ), $from .. $to;
}

for $structs (@structs) {
    for $molecs (@molecs) {
        for $steps (@steps) {
...
        } 
    }
}