sub safe_print {
    for my $item (@_) {
        print defined $item ? $item : '[undef]';
    }
}