my $mem;
my @stuff = \$mem, '>', \$var;
open @stuff ..