use warnings; use strict;
sub foo {
    my ($par) = @_;
    my @arr = qw/ in seinen Armen das Kind war Brot /;
    return $arr[$par];
}

print foo(3); # gibt "das" aus.
print foo(6); # gibt "Brot" aus.