use strict;

sub test {
  return qw/1 2 3 4 5/;
}
# Refernzieren
my $test = \&test;
# Dereferenzieren
print &$test;