use strict;
use warnings;
no strict 'refs';

use Data::Dumper;
$Data::Dumper::Sortkeys = 1;
$Data::Dumper::Deparse = 1;
print Dumper( { map { $_ => $_->() } 'a' .. 'g' } );

sub dumphints {
	my @caller = caller(0);
	$caller[10];
}
                                         sub a {dumphints()}
{use feature ':5.10';                    sub b {dumphints()}}
{use 5.010;                              sub c {dumphints()}}
{no feature ':all'; use feature ':5.10'; sub d {dumphints()}}

{use feature 'say';                   sub e {dumphints()}}
{                   no feature 'say'; sub f {dumphints()}}
{use feature 'say'; no feature 'say'; sub g {dumphints()}}