use strict;
use warnings;

myfunction1( handle => \*STDERR);

sub myfunction1{
    my %hash = (
        handle => \*STDOUT,
        @_
    );
    print "something will happen\n";
    print {$hash{handle}}  "anything from myfunction1\n";
#         ^             ^   # braces added here

}