#!/usr/bin/perl
# vi:ts=4 sw=4 et:
use strict;
use warnings;

package ups;

{  ### CLOSURE
    my @daten = (); # @daten ist nur in den Methoden bekannt, die 
                           # in diesem Block definiert werden.

    sub fill_data {
        @daten = qw( a b c 12 3 );
    }

    sub print_data {
        for ( @daten ) {
            print $_, $/;
        }
    }
}

sub new {
    my $class = shift;
    my %parms = @_;
    my $self = {};

    bless $self, $class;
    return $self;
}

package main;

my $obj = ups->new();

$obj->fill_data();
$obj->print_data();