#!/usr/bin/perl

use warnings;
use strict;

sub pront {for(@_){print"$_\n"}}

pront "Hallo";

my @a = (1, 2, 3, 4);

pront @a;