Two ways to alias a package variable to another variable:

local *ON::Ar = $myvar->{ar};
$blessed->function;
[download]

use Data::Alias qw( alias );
alias @ON::Ar = @{$myvar->{ar}};
$blessed->function;
[download]