#!/usr/bin/perl

use strict;
use warnings;

my %global_hash;

sub1();
sub2();

sub sub1{
    $global_hash{test} = 'world'M
}

sub sub2{
    print $global_hash{test};
}

%main::variablename;

our %name;

use strict;
use warnings;

use Data::Dumper;

sub create_hash($) {
  my $id = shift;
  $main::{"hash_$id"} = { id => $id, data => 'rhabarber' }
}

create_hash("foo");

our %hash_foo;
print Dumper \%hash_foo;

package Paket;
use strict;
use warnings;
 
 #contructor
 sub new {
        my $class = shift;
        my $self = {@_}
        bless ($self, $class);
        return $self;
 }
 
 
 #beispiel get-method
 sub firststart {
        my $self = shift;
        my %hash = %$self;
        return $hash{firstStart};
 }
 
 1;

#!/usr/bin/perl
use strict;
use warnings;
use Paket;

my %pak_dump{};



sub startNewPack {

        startPackOnRemoteHost();
        
        #$_[0] soll eine beliebige zahl sein, die als parameter übergeben wird
        $pak_dump{$_[0]} = Paket->new( firstStart => 123, schedule1 => 0, schedule2 => 0, schedule3 => 1);
}

#!/usr/bin/perl

use strict;
use warnings;

my %hash = start_all_programs();

print $hash{pc1}->{program};

sub start_all_programs{
    my %tmp;

    for my $pc ('pc1','pc2'){
        $tmp{$pc}->{program} = 'test';
    }

    return %tmp;
}