use strict;

my @data = ( 5, 9, 12, 172, 1, 33); # Numerische Werte benötigen kein ""
my @data3; # Leeres Array

push(@data3,@data); # Array-Elemente von '@data' an '@data3' anhaengen

# Die ersten beiden Elemente aus '@data3' entfernen
shift @data3;
shift @data3;

myfunc([@data3]); # anonyme Referenz an Funktion oder Methode übergeben


sub myfunc
{
 my $ref=shift;
 
 foreach my $entry ( @$ref)
 {
  print "ENTRY=$entry\n";
 }
}