#!/usr/bin/perl

# PRAGMAS
# -------
use strict;
use warnings 'all';

# FORWARD DECLARATIONS
# --------------------
sub show_arr (\@);

# MAIN
# ----
my @arr = ();                   # leeres array erzeigen
show_arr @arr;                  # ausgabe

@arr = qw( inhalt inhalt2 );    # array befuellen
show_arr @arr;                  # ausgabe

undef    @arr;                  # array "undefinieren"
show_arr @arr;                  # ausgabe

<STDIN>;

# SUBROUTINES
# -----------
#
# NAME:        show_arr()
#
# DESCRIPTION:
# Output the elements of an array.
# If the array is empty, '()' will get written, if it is undefined,
# 'undef' will get written.
#
# PARAMETERS:  1. Perl Array
#
# RETURNS:     nothing
#
sub show_arr (\@)
{
        my @arr = @{$_[0]};     # pick array

        print "SHOW_ARRAY: ".
                ( @arr ? ('( '. join( ', ', @arr ) .' )')  # show array data if there is any
                       : ( defined @arr ? '()'             # show () if array is empty
                                        : 'undef'          # show undef if array is undef
                         )
                ) ."\n";
} # show_arr

__END__