Select Code to Download

use strict;
use warnings;
...

print Dumper \%earth;
print "\n\n";

$VAR1 = {
          'wind' => {
...
        };

 if (defined $flag_assignments{$temp_key}) {
        print "KEY [$key] TK [$temp_key] TS [$temp_semester] FAS [$fla
+g_assignments{$temp_key}{starrez}] FAA [$flag_assignments{$temp_key}{
+abbreviation}]\n";
    }