use Lexical::Alias 'alias';

my $src;
alias $src, $foo[ ... ]