#!/usr/bin/perl

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

sub mypush(\@$);

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

print Dumper \@array;


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