sub Create_fun {
     my ($var) = @_;
        sub { print "$var";}
}

$anony_sub_ref = Create_fun("first_function");