When faced with this sort of problem, I've found it useful to just drop back one level of indirection and use subroutine references:

my $gimme = $fh ? sub { <$fh> } : sub { pop @array };
...
while (defined($x = &$gimme)) {
  ...
}
[download]