#!/usr/bin/perl

use strict;
use warnings;

sub mysub(&;@);

mysub { print @_ } (1..10);

sub mysub(&;@){
    my ($code,@list) = @_;
    $code->(@list);
}