use strict;
use warnings;

my $c = "foo";
my $d = "print q{$c}, q{\n}";
eval ($d); # print "foo"

my @f = 1..10;
process_f();

sub process_f {
     my $g = 'print "$_ " for @f; print "\n";';
    eval ($g);
}

my $h = 'my $i = sub { print map {$_ *= 2; "$_ ";} @f; print "\n" }; $i->();';
eval ($h);