#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

# Deklaration + Definition
sub mypush(\@$){
    my ($ar,$scalar) = @_;
    push @$ar, "Hinzugefuegt: $scalar";
}

my @array = (1..7);
mypush( @array, "Hallo");

print Dumper \@array;