#!/usr/bin/env perl
use strict;
use warnings;

my $code = sub { print "I found a $_!\n" for @_ };

$code->('x', 'y', 'z');