#!/usr/bin/perl

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

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

# MAIN
# ----


my @arr = qw( inhalt inhalt2 ); # array befuellen
show_arr @arr;                  #: SHOW_ARRAY: ( inhalt, inhalt2 )

@arr = ();			# leeres array erzeigen
show_arr @arr;                  #: SHOW_ARRAY: ()


undef    @arr;                  # array "undefinieren"
show_arr @arr;                  #: SHOW_ARRAY: undef

<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__