print_screen

The Engine That Powers the Two Methods

    sub _print_engine {
        my ($dataref, $reservedref) = @_;
        my %data = %$dataref;
        my %reserved = %$reservedref;
        foreach my $i (sort keys %data) {
            unless ($reserved{$i}) {
                print $_, ';' foreach (@{$data{$i}});
                print "\n";
            }
        }
    }