Select Code to Download

# I assume @systems is already initialized and full of data.
# the important thing is that you do this loop for each 
...
                    status=>STATUS
                   };
 }

# prepare once, execute often
...
foreach my $drive (@drives) {
    $sth->execute($drive->{system}, $drive->{make}, $drive->{model}, $
+drive->{capacity}, $drive->{status});
}

perl -e 'print "How sweet does a rose smell? "; chomp ($n = <STDIN>); 
+$rose = "smells sweet to degree $n"; *other_name = *rose; print "$oth
+er_name\n"'